Make a list of coulours like this:
Red
Green
Blue
Yellow
Brown
and name it List using Insert|Name|Define.
Select the cells you want to colour and choose Data|Validation from the menu. In the Allow box choose List. In the Source box type:
=List
and click OK.
Right click the sheet tab and choose View Code. Paste this code into the window on the right:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Hello"
Dim Temp As String
On Error Resume Next
Temp = Target.Validation.Formula1
If Err <> 0 Then Exit Sub
Select Case Target.Value
Case "Red"
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 3
Case "Green"
Target.Interior.ColorIndex = 10
Target.Font.ColorIndex = 10
Case "Blue"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 5
Case "Yellow"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 6
Case "Brown"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 53
End Select
End Sub
Press Alt+F11 to return to your worksheet and try it out.