Thanks a bunch. I tried range.usedrows. etc, but not UsedRange.

>John,
>
>Usually something like this works:
>
>xlLastCell=11
>xlR1C1 = -4150
>lcLastCell = ObjExcel.ActiveSheet.Range("A1").SpecialCells(xlLastCel).Address(.f.,.f.,xlR1C1)
>ObjExcel.ActiveSheet.UsedRange.Rows.Count
>ObjExcel.ActiveSheet.UsedRange.Columns.Count
>ObjExcel.ActiveSheet.Cells.Select && all used cells
>
>
>Yuri
>
>>>>>>>>>>>>>>>>>>>>>your message below
>Hi guys:
>
>Working with excel automation from vfp. How do I determine the active range of cells which contain data, i.e. the rightmost column intersected with the bottomost row that contain data?
>
>.rows.count returns 65,536 and columns.count returns 256.
>
>I thought about using loops and testing for empty, but there may be empty cells which would not return the proper column or row.