Rob,
Right click the sheet tab, view code and paste this in. Change the ranges,
conditions and colours to suit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
Select Case Target
Case 1
icolor = 6
Case 2
icolor = 12
Case 3
icolor = 7
Case 4
icolor = 53
Case 5
icolor = 15
Case 6
icolor = 42
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub
Mike