Macro excel - Somar celulas por cor

[150max]

Alguém me pode ajudar a editar esta macro para fazer o que eu quero?
A macro a baixo basicamente soma células no Excel que tenham a mesma cor, contudo eu precisava que ela soma-se as células que tenham caracteres com a mesma cor!

Resumindo, quero somar caracteres (Algarismos) com a mesma cor e não células!

É possível ?

Obrigado

Function SumByColor(CellColor As Range, SumRange As Range)
Dim myCell As Range
Dim iCol As Integer
Dim myTotal
iCol = CellColor.Interior.ColorIndex '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.Interior.ColorIndex = iCol Then
'adiciona o valor da célula ao total
myTotal = WorksheetFunction.sum(myCell) + myTotal
End If
Next myCell
SumByColor = myTotal
End Function