There is a Filters collection associated with the AutoFilter object that holds a Filter object for each field in the AutoFilter : AutoFilter « Excel « VBA / Excel / Access / Word
There is a Filters collection associated with the AutoFilter object that holds a Filter object for each field in the AutoFilter
Sub Main()
With ActiveSheet.ListObjects(1) If .ShowAutoFilter Then
With .AutoFilter.Filters(2) If .On Then
MsgBox .Criteria1 End If End With End If End With End Sub