Sub MultiSelectFilter() Worksheets("SalesReport").Select Range("A1").AutoFilter Range("A1").AutoFilter Field:=4, Criteria1:=Array("A", "C", "E","F", "H"),Operator:=xlFilterValues End Sub