Szia!

Mit szólnál ehhez:

Sub Autoszűrő()

Dim x As Byte

  If ActiveSheet.AutoFilterMode = True Then ' ha a munkalapon az autoszűrő aktív
    For x = 1 To ActiveSheet.AutoFilter.Filters.Count
      If ActiveSheet.AutoFilter.Filters(x).On Then ' itt nézzük meg, hogy aktív-e valamelyik
        MsgBox "A(z) " & x & ". szűrő aktiválva!"
      End If
    Next x
  Else: MsgBox "Autoszűrő kikapcsolva"
  End If

End Sub