Function SumarPorColor(ColorDeCelda As Range, RangoSumar As Range) As Double
    Dim ContCelda As Range
    For Each ContCelda In RangoSumar
        If ContCelda.Interior.ColorIndex = ColorDeCelda.Cells(1, 1).Interior.ColorIndex Then SumarPorColor = SumarPorColor + ContCelda
    Next ContCelda
    Set ContCelda = Nothing
End Function