Esta pregunta ya tiene una respuesta aquí:

Tengo una función que obtuve de MSDN que cuenta el número de celdas en un rango que tienen otro color de celdas.

Aqui esta el codigo

Function countCcolor(range_data As Range, criteria As Range) As Long
    Application.Volatile
    Application.ScreenUpdating = False
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        countCcolor = countCcolor + 1
    End If
Next datax
Application.ScreenUpdating = True
End Function

Un requisito para esta función es que se actualizará cuando cambie el valor de color de una celda.

Mi idea es crear un evento para cuando se cambie el color de una celda y hacer que vuelva a calcular cualquier celda con la función, pero no estoy seguro de si esta es la mejor manera.