scroll through visible rows only

[Av8tordude]

I'm using this code to scroll through each row, however if the rows are filtered I would like to scroll through only the visible rows. Can someone assist with a vba code to only scroll through the visible rows. Thanks

Private Sub spNav_SpinDown()
Dim LRow As Long

LRow = Application.Max(7, Range("A" & Rows.Count).End(xlUp).Row)

If Range("A7") > vbNullString Then Cells(Application.Min(LRow, selection.Row + 1), "A").Select
end sub

 

[Av8tordude]

Hi Mark....

How do I stop it from passing the first filtered row? I don't want it to pass Row 7

 

[MARK858]

If you always have some visible data and your headers are in row 1 then try

Sub Option1()
    Dim i As Long

    For i = ActiveCell.Row - 1 To Range("A2:A" & ActiveCell.Row).SpecialCells(xlVisible)(1).Row Step -1
        If Rows(i).Hidden = False Then
            Cells(i, ActiveCell.Column).Select
            Exit For
        End If
    Next i
End Sub

 

[Av8tordude]

Thank you again Mark