This is very crude, I hope it helps.

I use the light yellow color as base, change as needed



Sub Macro1()

Dim temp As Integer

If Range("A1").Interior.ColorIndex = 36 Then temp = temp +
Range("A2").Value

If Range("A3").Interior.ColorIndex = 36 Then temp = temp +
Range("A4").Value

If Range("A5").Interior.ColorIndex = 36 Then temp = temp +
Range("A6").Value

Range("A7") = temp

End Sub


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=556136