Mega Code Archive
To find records that have no fill color, use an operator of xlFilterNoFill and do not specify any criteria
Sub FilterByFillColor()
Worksheets("SalesReport").Select
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=6, _
Criteria1:=RGB(255, 0, 0), Operator:= xlFilterNoFill
End Sub