You can try this Otto with the cell in B active
Sub test()
Dim rng As Range
Set rng = Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, Columns.Count))
rng.SpecialCells(xlCellTypeVisible).Cells(1).Selec t
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Otto Moehrbach" wrote in message ...
Excel XP & Win XP
I have a variable number of columns after Column B hidden. With the active
cell, B4, how can I reference the next visible cell in row 4?
Thanks for your time. Otto