Sub CountCF1()
Dim sh As Worksheet, x As Long, rng As Range, c As Range
Set sh = ActiveSheet
Set rng = sh.Columns("E:E").SpecialCells(xlCellTypeAllFormatConditions)
For Each c In rng.Cells
If c.DisplayFormat.Interior.Color = 5287936 Or _
c.DisplayFormat.Interior.Color = 255 Then
x = x + 1
End If
Next c
MsgBox x
End Sub