This was my VBA:
Function SumColor(MatchColor As Range, sumRange As Range) As Double
Dim cell As Range
Dim myColor As Long
myColor = MatchColor.Cells(1, 1).Interior.Color
For Each cell In sumRange
If cell.Interior.Color = myColor Then
SumColor = (SumColor + cell.Value)
End If
Next cell
End Function
ANY HELP WOULD BE APPRECIATED