Visual Basic para Aplicaciones - Cómo sumar celdas cuyo texto es de un solo color

Hola, de antemano gracias por cualquier ayuda que me puedan proporcionar...mi pregunta es de qué manera puedo hacer que en una hoja de excell pueda hacer la suma de un rango especificado de celdas siempre y cuando el color del texto de estas celdas sea uno que yo especifique..

Gracias!

Como una alternativa, aunque poco ortodoxa, es que recorras el rango que desees sumar y pongas la siguiente sentencia
while ....
If ActiveCell.Font.Color = [color] Then
suma = suma + activecell.value
end if
activecell.offset(1,0).activate
wend

[color] podés utilizar la función RGB

Para elegir el color, si lo tiene que hacer el usuario, yo pondría varias casillas con los colores que se pueden elegir, y que elijan de ahí. Ingresando la referencia de fila y columna. En la sentencia arriba en ves de color sería

range([celda_elegida]).interior.colorindex


Espero te sirva mi ayuda