Hi Mike,

Try like this! ;)


Code:
--------------------

With ActiveCell
Range(.Item(1), .Parent.Cells.Find("*", , , , 1, 2)).Select
End With

--------------------



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