Counting Cells by Color with conditional formatting

romancristiani 

Here is the VBA code I came up with:

Function CountColor(rng As Range, colorcell As Range) As Long
    Dim cell As Range
    Dim clr As Long
    clr = colorcell.Interior.Color
    For Each cell In rng
        If Evaluate("GetColor(" & cell.Address(External:=True) & ")") = clr Then
            CountColor = CountColor + 1
        End If
    Next cell
End Function

Function GetColor(cell As Range) As Long
    GetColor = cell.DisplayFormat.Interior.Color
End Function

The formula in B20 is

=IF($A20="", "", CountColor($B8:$P8, B$19))

This can be filled to the right to D20, ten down to row 25.

I have attached the workbook to a PM to you. You'll have to allow macros when you open it.