antal rows i selection

I VBA under Excel søger jeg en funktion der returnere
antal rows i en selection.

Sub count()
    num_of_rows = Selection.Rows.count
End Sub

Denne count funktion fungere jo meget godt, men ikke hvis
der er brugt filter. Her vil rækker blive medregnet selv
om de er skjult med et filter.
Så hvordan gør jeg så ?