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