Hi,

I have a user form which acts as a DB front end for a spreadsheet and I want it to skip any rows hidden by AutoFilter. I constructed the following code based on chapter 9 in "Excel 2003 VBA Programmer's reference" . The code loops through the next rows in the range and tests if they are hidden.
Unfortunately, it doesn't work as expected and seems to skip rows that aren't hidden and show ones that are.

Private Sub cmdNextRecord_Click()
Dim i As Integer
i = 1
    With Range("Database")
        Do While RangeData.Rows(Navigator.Value + i).EntireRow.Hidden = True
        i = i + 1
        Loop
        If RangeData.Row < .Rows(.Rows.Count).Row Then
            'Load next record only if not on last record
            Navigator.Value = Navigator.Value + i
        End If
    End With
End Sub

Regards
JT