This is just a simple loop until you reach the last row that isn't
blank
Do While (Selection.Offset(1, 0) < "")
'Code
Selection.Offset(1, 0).Select
Loop
Hope This is what you want
Nigel :)
--
Nigel_hough
------------------------------------------------------------------------
Nigel_hough's Profile:
http://www.excelforum.com/member.php...o&userid=20623
View this thread:
http://www.excelforum.com/showthread...hreadid=395789