Közben találtam egy megoldást, ide teszem, hátha még valakinek hasznos lehet:

Sub VégigASzűrtSorokon()
Dim i As Long

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & i).EntireRow.Hidden = False Then MsgBox "Kiválasztott sor: " & i
Next i

End Sub