Set activeCell to first row of filtered data

Howdy, folks:

It's time for my dumb-question of the day.

I have a list of data - somw 6000 rows. I set a filter on that data and get the records required. I want to move the activeCell to the first record that's shown. Any ideas?

Bob

This should do it

Sub Macro1()
    Dim rng As Range
    Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1)
    MsgBox "The first visible cell is " & rng.Address
    rng.Select
End Sub