Can some words in a string be a different color?

[richard11153]

I have some cells that change when clicked on, to different texts. "Good, Fair, Bad, and Blank". Is there a code that can be added to make the word "Bad" imput in the color red?
My code is below.

Thanks / Rich

-------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "A1:A300" '<=== change Range of cells to suit

On Error GoTo err_handler
Application.EnableEvents = False
If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
With Target
.Font.Name = "Good"
Select Case .Value
Case "Good": .Value = "Fair"
Case "Fair": .Value = "Bad"
Case "Bad": .Value = ""
Case Else: .Value = "Good"

End Select
.Offset(2, 0).Select
End With
End If
err_handler:
Application.EnableEvents = True
End Sub

[protonLeah]

Use conditional formatting.

[JBeaucaire]

Use Conditional Formatting for that in the cells that these words appear. Click on Format > Conditional Formatting and set the parameters to Cell Value Is: Equal to: Bad and then click Format to setup your font formatting preference.

[romperstomper]

Try this:

Please Login or Register  to view this content.