Move to displayed row of filtered list

  • Thread starter Thread starter Michael Singmin
  • Start date Start date
M

Michael Singmin

Hello Group,

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

Thanks,

Michael Singmin
 
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>
 
Back
Top