Sub FilterByIcon() Worksheets("SalesReport").Select Range("A1").AutoFilter Range("A1").AutoFilter Field:=6, _ Criteria1:=ActiveWorkbook.IconSets(xl5ArrowsGray).Item(5),Operator:=xlFilterIcon End Sub