Sub lastcell()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:H" & lrow).Select
End Sub


Gord

On Wed, 4 Mar 2009 18:06:00 -0800, Philosophaie
wrote:

How do you add that to a range select?

Range("A1:H9").Select

Replace "9" with "Irow".