Sub dural()
Set r = Range("A" & Rows.Count).EntireRow
r.Select
End Sub

will select the last row of a worksheet (both 2007 and prior versions)
--
Gary''s Student - gsnu200803


"ranswrt" wrote:

I have the following code to set a range to the bottom of the sheet:

Set rng7 = Range(xcell.Offset(71, -2), xcell.Offset(65000, -2)).EntireRow

I know there is a way to set it to the very bottom of the sheet, but I can't
find it. How do I do this?
Thanks