You can mimic the end down keystrokes with the End method of the range
object

e.g Range(Cells(1,1),Cells(Cells(65536,1).end(xlup).ro w,1)).select

selects all the cells in column 1 from first to last occupied.

You might also try using Cells(1,1).CurrentRegion to return the range
that is equivalent to hitting the control-shift-8 key combination.


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=542637