Oi Fernando,
Tem várias maneiras de fazer, fica aí uma:
vc vai chamar a função da seguinte maneira =SOMACOR(A1:B5;"VERDE")
Function SOMACOR(qRange As Range, ByVal qCor$) As Double
Dim c As Range, xcolor&, xvalue#
Select Case qCor$
Case "VERMELHO"
xcolor& = 255
Case "PRETO"
xcolor& = 0
Case "AZUL"
xcolor& = RGB(0, 0, 255)
Case "VERDE"
xcolor& = RGB(0, 255, 0)
Case "AMARELO"
xcolor& = RGB(255, 255, 0)
Case "ROSA"
xcolor& = RGB(255, 0, 255)
End Select
Contador = 0
For Each c In qRange
If c.Font.Color = xcolor Then
Contador = Contador + 1
End If
Next
SOMACOR = Contador
End Function
Espero ter ajudado!