AP; that's perfect. Many thanks. It's exactly what I needed.
Clive

Ardus Petus Wrote:
Sub test()
Range(Range("A1"), Range("A1") _
.End(xlDown) _
.End(xlDown) _
.End(xlDown) _
.End(xlDown) _
).Select
End Sub

HTH
--
AP
[/color]


--
Clivey_UK
------------------------------------------------------------------------
Clivey_UK's Profile: http://www.excelforum.com/member.php...o&userid=32569
View this thread: http://www.excelforum.com/showthread...hreadid=536312