Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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