Cursor movement over hidden rows

[milob]

Hi

I need a little VBA help. =)

I am trying to select the first visible cell under the .end(xldown) of the column. However, if I try the .Offset(1,0) method, it selects the cell in the hidden area. How do I select the first cell of the unhidden area?

Thanks very much!
Elaina

 

[DRJ]

Hi - Welcome to the board

Sub Test()


    Range("A65536").End(xlUp).Offset(1, 0).Select
    Do
        If ActiveCell.RowHeight = 0 Then
            ActiveCell.Offset(1, 0).Select
            Else
            Exit Do
        End If
    Loop

End Sub