Thanks Again.......I got it to work.

What do I need to change if I want it to recongnize whole words or
phrases...ie...
Eng 9, Math 9, Science 9 would be red
Eng 10, Math 10, Science 10 would be blue

I have four lists of courses in a worksheet that need to be highlighted
their respective color when entered.

Can you help?

Thanks in Advance,
John


"T. Valko" wrote:

Select the sheet where you want this to happen.
Right click on the sheet tab
Select View Code
This will open the VBE
Paste the code into the right side of the window that opens
ALT+Q to close the VBE and return to Excel

Biff

"JVANWORTH" wrote in message
...
Mike H,

I'm sure this works, but my ability is limited in where to put. How do I
insert this into the work sheet. I need direction in order to execute.

"Mike H" wrote:

try this:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) _
Is Nothing Then Exit Sub
Select Case Target.Value
Case "A" To "E"
icolor = 3
Case "F" To "J"
icolor = 41
Case "K" To "O"
icolor = 4
Case "P" To "T"
icolor = 6
Case Else
End Select
Target.Interior.ColorIndex = icolor
End Sub


"JVANWORTH" wrote:

I need a cell to change into four (4) different colors if a specific
condition is met. For example if A1 matches a text value "A thru E" I
need
"red", if it's a "F thru J" then "blue", "K thru O" then "green", "P
thru T"
then yellow.

I'm struggling with the set up of this requirement.