Filters

'Filter Object
'Represents a filter for a single column.
'Remarks
''
'The Filter object is a member of the Filters collection. The Filters collection contains all the filters in an autofiltered range.
''
'Example
''
'Use Filters(index), where index is the filter title or index number, to return a single Filter object. The following example sets a variable to the value of the On property of the filter for the first column in the filtered range on the Crew worksheet.


Option Explicit

Sub a1()
Sheet4.Activate
Range("1:1").AutoFilter field:=6, Criteria1:="Binders", _
    Operator:=xlOr, Criteria2:="Pencils"
Range("1:1").AutoFilter field:=4, Criteria1:="Alberta"

End Sub