Excel - Contar celdas por formato

Necesito contar las celdas que tienen un determinado formato (color), las celdas tendrán un valor que no me sirve para contar. ¿cómo lo hago?
Gracias

Pues depende de como esten colocados tus datos en la hoja, este busca en la columna A las celdas que esten en amarillo y le suma un 1 a la variable, y despliega un mensaje con el numero de celdas amarillas..Pruebalo y me cuentas

Sub contar_propiedades()
dim suma as long

Cells(1,"A").select
Do while activecell.value <> ""
if activecell.Interior.ColorIndex = 6 then
suma = suma + 1
end if
activecell.offset(1,0).select
loop
msgbox "Existen" & chr(13) & suma & chr(13) & "Celdas _
amarillas",vbokonly+vbinformation,"MENSAJE"
end sub

Muchas gracias, tu solución funciona perfectamente lo único que necesito contar, todas las celdas de color rojo de un área determinada, y no se cómo decirle que busque sólo en ese área (son más de una fila y más de una columna.

haver, muchas gracias, me funcionó perfectamente