Macro excel - Somar celulas por cor

[nioxys]

Olá

Tens de alterar a propriedade, onde usas 
CellColor.Interior.ColorIndex tens de passar a usar CellColor.Font.Color , assim como no IF, tens If myCell.Interior.ColorIndex = iCol Then trocas por If myCell.Font.Color = iCol Then sendo o resultado final,

Código:

Function SumByColor(CellColor As Range, SumRange As Range)

Dim myCell As Range
Dim iCol As Integer
Dim myTotal

iCol = CellColor.Font.Color 'obtém a cor de destino

For Each myCell In SumRange 'verifica cada célula no intervalo designado
'se a cor da célula corresponder á cor alvo
If myCell.Font.Color = iCol Then
'adiciona o valor da célula ao total

myTotal = WorksheetFunction.Sum(myCell) + myTotal
End If

Next myCell
SumByColor = myTotal

End Function

Espero ter ajudado.