Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

To find records that have a particular font color, use an operator of xlFilterFontColor and specify a particular RGB value as the cr

Sub FilterByFontColor()     Worksheets("SalesReport").Select     Range("A1").AutoFilter     Range("A1").AutoFilter Field:=6,Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor End Sub