Use RowHeight property of range object as follows:

****************code starts*************

Sub GoToNextVisibleCellDown()
Dim cell As Range
Set cell = ActiveCell
Do
Set cell = cell.Offset(1, 0)
Loop While cell.RowHeight = 0
cell.Select
Set cell = Nothing
End Sub

****************code ends*************



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/