Not sure if you need this but I thought I'd post this macro for you just in case.
Dim rCell As Range
' Start Counter
For Each rCell In Range("A1:AT500")
' Check fot the correct criteria and chenge the colour appropriatly
' Do this for Red Monday, Amber Tuesday and Green Wednesday check on all cells in range
If UCase(rCell) = "Monday" Then
Range(rCell.Address).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ElseIf UCase(rCell) = "Tuesday" Then
Range(rCell.Address).Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ElseIf UCase(rCell) = "Wednesday" Then
Range(rCell.Address).Select
With Selection.Interior
.ColorIndex = 50
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
Next rCell
End Sub