Sumcolor

hejsa
Jeg har en VBA der næsten dræber mit system hvergang den skal opdatere:

Function SumColor(Cel, ran As range) As Double
    colo = Cel.Interior.ColorIndex
    colsum = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Then
            colsum = colsum + c.Value
        End If
    Next c
SumColor = colsum
End Function

Findes der en formel istedet??