How to count by FONT COLOR in excel when font color depends on a conditional formatting rule?

Pau_Me 

You may place the following Function on a Standard Module.

Function getCountBasedOnCFFontColor(Rng As Range, CFColor As Long) As Long
    Dim Cel     As Range
    Dim cnt     As Long
    Dim i       As Long
    
    For Each Cel In Rng
        If Cel.DisplayFormat.Font.Color = CFColor Then cnt = cnt + 1
    Next Cel
    
    getCountBasedOnCFFontColor = cnt
End Function

And then you may call this Function in your main routine to count the cells with a specific font color set based on the conditional formatting like this...

Sub CountCellsWithRedFont()
    Dim Rng As Range
    Dim cnt As Long
    Set Rng = Range("A1:A1000")
    
    'Calling Function getCountBasedOnCFFontColor to count the cells based on CF color
    cnt = getCountBasedOnCFFontColor(Rng, vbRed)
    
    'OR
    'cnt = getCountBasedOnCFFontColor(Rng, RGB(255, 0, 0))
    'OR
    'cnt = getCountBasedOnCFFontColor(Rng, 255)
    
    MsgBox "Cells with Red font color are " & cnt & "."
End Sub