Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Filtering Based on Color or Icon

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