Move to displayed row of filtered list

[Michael Singmin]

Hello Group,

If a list is filtered, can one move to the first displayed row after
the header row ?

Thanks,

Michael Singmin

 

[John Wilson]

Michael,

From a prior post by Tom Ogilvy......

John

<snip>
Sub GetFirst()
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range
Set rng = rng.Offset(1, 0).Resize(, 1) _
.SpecialCells(xlVisible)
Set rng = Intersect(rng(1, 1).EntireRow, _
ActiveSheet.AutoFilter.Range)
rng.Select
End Sub
<snip>