I found a really excellent function on the net that you guys might have seen before but that I wanted to share. This formula sums cells according to colour. Neat huh?
Function SUMIFCOLOUR(TheRange As Range, TheColourCell As Range) As Variant
Dim TempRange As Range
On Error GoTo BailOut
Colour = TheColourCell.Interior.Color
For Each TempRange In TheRange
If Colour = TempRange.Interior.Color Then Result = Result + TempRange.Value
SUMIFCOLOUR = Result