VBA: Test if excel autofilter returned anything

Option Explicit
Sub Test()
    Dim FilteredRange As Range
    Dim rw As Range
    Application.ScreenUpdating = False
    With ActiveSheet.Range("A1")
        .AutoFilter Field:=1, Criteria1:="2"
        Set FilteredRange = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
        For Each rw In FilteredRange.Rows
            If rw.Row > FilteredRange.Rows.Row Then
                'If visible cell, format row here
                With rw
                    .Font.FontStyle = "Bold"
                    .Interior.ColorIndex = 3
                End With
            End If
        Next
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

<font face=Courier New>
Function FilterOk(Sh As Worksheet) As Boolean
  On Error Resume Next
  With Sh.AutoFilter.Range
    FilterOk = .SpecialCells(xlCellTypeVisible).Rows.Address <> .Rows(1).Address
  End With
End Function

Sub Test_FilterOk()
  Debug.Print FilterOk(ActiveSheet)
End Sub
</FONT>