Try this

Sub Test()
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) 0 Then
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Range(Cells(LastRow, 1), Cells(LastRow + 3, 1)).Select
End If
End Sub




--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"aapp81" wrote in message
...
hey, thanks for that sub... its actually very helpful b/c it was going
to be my next question... :)
but its not exactly what i needed right now...
i still need something that will go 3 rows down from the LastRow and
select A# (# being LastRow + 3 cells down)


---
Message posted from http://www.ExcelForum.com/