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

Related examples in the same category

1.	The AutoFilter object only exists when the AutoFilter feature is turned on. You can determine whether the Worksheet AutoFilter is active by using the value of the AutoFilterMode property
2.	To switch off a range AutoFilter, you use the AutoFilter method of the Range object with no parameters:
3.	To ensure that the worksheet AutoFilter is turned off
4.	determine whether a ListObject object AutoFilter is turned on or off by testing its ShowAutoFilter property.
5.	turn on/off the AutoFilter drop-downs:
6.	Use this code to turn off the AutoFilter drop-downs:
7.	turns off the drop-downs for Columns C, E, F, G, and H:
8.	filters to show records
9.	To clear the filter from the customer colum
10.	filter a column to one of two customers, joined by the OR operator:
11.	returns all customers that started with the letters A through E:
12.	produces the top 10 revenue records:
13.	Selecting Multiple Values from a Filter
14.	Selecting a Dynamic Date Range Using AutoFilters
15.	Filtering Based on Color or Icon
16.	To find records that have no conditional formatting icon, use an operator of xlFilterNoIcon and do not specify any criteria.
17.	To find records that have a particular fill color, use an operator of xlFilterCellColor and specify a particular RGB value as the criteria.
18.	To find records that have no fill color, use an operator of xlFilterNoFill and do not specify any criteria.
19.	To find records that have a particular font color, use an operator of xlFilterFontColor and specify a particular RGB value as the criteria.
20.	The fastest way to delete rows is provided by Excel's AutoFilter feature:

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

Related examples in the same category