Hi,

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(UCase(Target.Value), "AMOUNT") = 0 Then Exit Sub
With Target.Characters(Start:=InStr(UCase(Target.Value) , "AMOUNT"),
Length:=6).Font
.ColorIndex = 3
End With
End Sub

Mike

"Faraz A. Qureshi" wrote:

Any idea how to have just a single word or part of text of a cell for example
"Amount" wherever occurring on the sheet be converted to be in red colored
font?

--
Best Regards,

Faraz