If you're willing to do a small concession to the way you input the text, here's a suggestion.
Give the cells in columna A a Custom format equal to:
0;-0;[Red]"Fee"
and input the word Fee as 0 (zero).
Marc
I sometimes have to use a version of Excel which does not offer Conditional Formatting. However, i need to have the word "FEE" show as [Red] if entered into any cell within Column "A". (All other text will remain black).
Anyone have any ideas? Can this be done with Custom Formatting?
Thx.
Noir
Thanks for the suggestion Marc!
Hi
Place this in your Worksheet_Change()
It will change red if fee is entered anywhere in column A
Tom
Dim Search
Dim Found
ActiveSheet.Columns("A:A").Font.ColorIndex = 0
With ActiveSheet.Range("a1:a1000")
Set Search = .Find("Fee", LookIn:=xlValues)
If Not Search Is Nothing Then
Found = Search.Address
Do
Search.Font.ColorIndex = 3
Set Search = .FindNext(Search)
Loop While Not Search Is Nothing And Search.Address <> Found
End If
End With
Thanks for the help Tom. It worked great!
Noir
Like this thread? Share it with others