Use this code:Sub lastrow()
Dim rRng As Range
Set rRng = Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count, 0).Resize(1, 1).Select
End With
End Sub
places cursor in cell A99999 where 99999=the first row below the last
entry in column A
--
swatsp0p
------------------------------------------------------------------------
swatsp0p's Profile:
http://www.excelforum.com/member.php...o&userid=15101
View this thread:
http://www.excelforum.com/showthread...hreadid=481003