>loExcelSheet.Range("A1:IV64000").Select

Michael,

You can make use of the End property to simulate hitting the End and arrow keys in Excel to get to the end of a range like this:

#Define END_DOWN  -4121
#Define END_RIGHT -4161

WITH loExcelSheet
   .Range("A1", .Range("A1").End(END_DOWN).End(END_RIGHT)).Select()
ENDWITH

Laterness,
Jon