#Define xlR1C1 -4150 #Define xlLastCell 11 lcXLS = getfile('XLS') oExcel = createobject("Excel.application") With oExcel .WorkBooks.Open(lcXLS) With .ActiveSheet ? 'Used Range - xlA1 Absolute : '+.UsedRange.Address ? 'Used Range - xlR1C1 Absolute : '+.UsedRange.Address(,,xlR1C1) ? 'Used Range - xlA1 Relative : '+.UsedRange.Address(.f.,.f.) ? 'Used Range - xlR1C1 Relative : '+.UsedRange.Address(.f.,.f.,xlR1C1) ? 'A1 - Relative : '+.Range("A1").Address(.f.,.f.,xlR1C1) ? 'Cont.Region - xlA1 Absolute : '+.Range("A1").CurrentRegion.Address ? 'Cont.Region - xlRC Absolute : '+.Range("A1").CurrentRegion.Address(,,xlR1C1) ? 'Last Cell - xlA1 Relative : '+.Range("A1").SpecialCells(xlLastCell).Address(.f.,.f.) ? 'Last Cell - xlR1C1 Relative : '+.Range("A1").SpecialCells(xlLastCell).Address(.f.,.f.,xlR1C1) ? 'Last Cell - xlA1 Absolute : '+.Range("A1").SpecialCells(xlLastCell).Address ? 'Last Cell - xlR1C1 Absolute : '+.Range("A1").SpecialCells(xlLastCell).Address(,,xlR1C1) .UsedRange.Select ? 'Selection - Absolute : '+.Application.Selection.Address Endwith .visible = .t. EndwithCetin