Custom Formatting?

[Noir]

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

 

[paelinck]

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

 

[Noir]

Thanks for the suggestion Marc!

 

[Legacy 98055]

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

 

[Noir]

Thanks for the help Tom. It worked great!

Noir