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).Select
End Sub

Signature
Regards Ron de Bruin
http://www.rondebruin.nl
> 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
Otto Moehrbach - 27 Nov 2006 00:18 GMT
Thanks Ron. I'll give that a try in the morning. Otto
> You can try this Otto with the cell in B active
>
[quoted text clipped - 9 lines]
>> active cell, B4, how can I reference the next visible cell in row 4?
>> Thanks for your time. Otto
Shlomit - 21 Jan 2007 11:21 GMT
Hi, It's ok.
I found the answer
" For Each cell In myRng" each cell return the correct row number.
Thanks a lot
shlomit
> Thanks Ron. I'll give that a try in the morning. Otto
> > You can try this Otto with the cell in B active
[quoted text clipped - 10 lines]
> >> active cell, B4, how can I reference the next visible cell in row 4?
> >> Thanks for your time. Otto