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.