Excel cell colouring

Paste this into the worksheet module that you're using.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
Select Case Target
Case 1
Target.Interior.ColorIndex = 6
Case 2
Target.Interior.ColorIndex = 41
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub

This also allows more options (say you want it green if they enter 3 in the future or something) because you can just add another case to the Select Case statement.

If you want to change the colors, the best way I know of finding out the indices is record a macro of turning a cell a specific color and then go check the code to find out what number it was.

Hope this helps!