Sure, its done like this:


Code:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Dim CVal As String
If Target.Cells.Count 1 Then Exit Sub
CVal = Target
Set MyRange = Range("A1:D20")

If Not Intersect(Target, MyRange) Is Nothing Then
Select Case CVal
Case "Monday"
Target.Interior.ColorIndex = 5
Case "Tuesday"
Target.Interior.ColorIndex = 10
Case "Wednesday"
Case vbNullString
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub
--------------------


--
The Code Cage Team

Regards,
The Code Cage Team
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=37790