Sub Test()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub

Try this one this will start in the Activecell

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



"mushy_peas " wrote in message ...
I need a macro that selects the next blank cell in a particaular ROW?

Cheers


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