Hi Tim,
Does something like the following work? This code creates two columns with a space in between to try and mess up excel. A messagebox counts and shows the number of rows, the number of columns, and the data in the last (bottom right) cell. Is this what you are looking for? Feel free to correct me 
[code] Dim excel as new ExcelApplication
excel.Visible = True
excel.Workbooks.add
'Create some data with a blank column
Dim i as Integer
For i = 1 to 30
excel.Range(“A”+Cstr(i)).Value = “test”
excel.Range(“C”+Cstr(i)).Value = CStr(i)
Next i
'Show rows and columns
MsgBox "There are " + excel.Range(“A65536”).End_(Office.xlUp).Row +Chr(13) + "Rows " +_
“and " + excel.ActiveSheet.cells(2, excel.Columns.Count).end_(Office.xlToLeft).column + " Columns.” + chr(13) +_
"and the last cell value is " + excel.ActiveCell.SpecialCells(Office.xlLastCell).Value
excel = nil
Exception err as OLEException
MsgBox err.message
[/code]