View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Change font color automatically

If you don't want a lot of CF then right click sheet tabview codeinsert
this. Set to col E now.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Or Target.Count < 1 Then Exit Sub
Select Case LCase(Target)
Case "x": mc = 3
Case "y": mc = 5
Case Else
mc = 0
End Select
'Application.EnableEvents = False
Target.Font.ColorIndex = mc
'Application.EnableEvents = True
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"dcb1" wrote in message
...
When I select the letter 'X' from a drop down list, I want it to
display it in red automatically. However, I don't want to have to
change the font color. Therefore, each time I enter this character---
the font will be shown in red. Anything else I choose from this list
will display in black (which of course is the default). Is there a
way to do this? Or, even if it is not from a drop down list, when I
enter a particular character in a cell--- I want it to show that
particular character in a specific color.