FUNCION PARA CONTAR NUMS CON COLOR

Escribí algo en el mensaje anterior... igual si querés contarlos automatico
tambén modifica a:

vv00 '1000 es la última fila con datos, puedes usar
Range("A1").end(xldown).row o algún similar
cantRojos=0
cantAzul=0
For i=1 to vv
If(Range("A" & i).Font.ColorIndex=3) Then
cantrojos= cantrojos+1
else
If(Range("A" & i).Font.ColorIndex=5) Then
cantazul= cantazul+1
end if
end if
next i

msgbox "rojos:" & cantrojos
msgbox "rojos:" & cantazul


"javier" escribió en el mensaje
news:

Lo que yo quiero es que me cuente por un lado todas las celdas que

contengan numeros y esten en color azul, y por otro lado, todas las celdas
que contengan numeros y esten en color rojo.

Los numero y los colores los meto yo manualmente.