Cetin:

Thanks you very much. This works perfectly. (You knew that ... :-) )

Charles Richard


>>Can someone tell me if an Excel 97 object (CreateObject('Excel.Application')...) has a property to indicate the actual number of rows and columns containing data?
>>
>>Thanks
>>Charles Richard
>
>Charles,
>Use specialcells :
>

with oExcel.ActiveWorkBook.ActiveSheet
>lcLastCell = .Range("A1").SpecialCells(xlLastCell).Address(.f.,.f.,xlR1C1)

>Also check Thread #247106
>
>Cetin