En mi último msj de este post no salió el link, ahí va:
http://www.exceluciones.com/portal/view ... ones+macro
Otra alternativa es una función:
Function SUMACOLOR(Rango As Range, CeldaColor As Range)
Dim Celda As Range, Total
Total = 0
For Each Celda In Rango
If Celda.Interior.ColorIndex = CeldaColor.Interior.ColorIndex Then
Total = Total + Celda.Value
End If
Next Celda
SUMACOLOR = Total
End Function
Atte.