Contar celdas que están con color en un macro

Tu pregunta es un poco vaga. Voy a dar por supuesto que quieres localizar los colores en un rango concreto en lugar de en toda la hoja. Tambien tengo que suponer que quieres localizar un color en concreto. Como tampoco dices de que forma quieres obtener la cantidad, te la he puesto en una celda y en un msgbox. Dicho todo esto, te pongo la macro con la esperanza de que tu la sepas modificar a tu gusto, de no ser asi, estare encantado de ayudarte.

Sub sumarColorAmarillo()
Dim rngC As Range
Dim btAmarillo As Byte

For Each rngC In Worksheets("hoja1").Range("A1:K200")
If rngC.Interior.ColorIndex = 6 Then btAmarillo = btAmarillo + 1
Next rngC

Range("A1") = btAmarillo
MsgBox "hay " & btAmarillo & " celdas amarillas"

Set rngC = Nothing
End Sub


Espero que te sirva. suerte.

Hola Heised!!
Si, lo mas seguro es que tengas que preguntarle si cumple la condicion, si deseas que te ayude tendras que darme mas datos..., podrias pegar la macro o ser algo mas explicito. Saludos...