This works but is there a better way

Do
Application.Cells(Application.ActiveCell.Row + 1, Application.ActiveCell.column).Activate
Loop Until Not Application.ActiveSheet.Rows(Application.ActiveCel l.Row).Hidden

"Kevin McCartney" wrote:

I have a data entry form that has Next, Previous buttons which navigate through the worksheet, my problem is that if the users leave a filter I only want to navigate through the visible rows, like using the cursor, the problem is that my code navigates through the hidden rows, so my questions is how to I make my code only navigate through the visible rows.

Application.Cells(Application.ActiveCell.Row + 1, Application.ActiveCell.column).Activate


TIA
KM