Zellen addieren in Abhängigkeit der Schriftfarbe

Ich bin auf der Suche nach einer Funktion (wahrscheinlich nur in VBA zu realisieren), mit der ich Zellen aufgrund ihrer Schriftfarbe addieren lassen kann.

Momentan sieht mein Skript so aus:

Function Farbe(rngBereich As Object, intColor As Integer)
Dim rngAct As Range
For Each rngAct In rngBereich
If rngAct.Font.ColorIndex = intColor Then
...
End If
Next rngAct
End Function

Keine Ahnung ob's funktioniert. An der Stelle der "..." fehlt schlichtweg die Funktion zum AYddieren der Zellen. Kann ich im Skript irgendwie die Funktion summe() aufrufen???

Herzlichen Dank schonmal im Voraus!
Maren