Excel Highlighting Problem

Re,

Right-click on the tab of the concerned sheet/View Code
paste this code into the blank sheet, as soon as the value 1 or 2 is entered in column B on the same row, "Text 1 TRUE Text 2" will be written in column D
or "Text 1 FALSE Text 2"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
Dim place As Byte
Dim i As Byte
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then
t = "Text 1 " & "TRUE" & " Text 2"
place = InStr(3, t, "TRUE")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("TRUE")
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
Else
t = "Text 1 " & "FALSE" & " Text 2"
place = InStr(3, t, "FALSE")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("FALSE")
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
End If
End Sub

I'm looking for a color highlighting
A+
Mike-31

A period of failure is a perfect time to sow the seeds of knowledge.

Hello,

which version of Excel?
In 2003, you can change the font color but not the background of part of a string.
Moreover, this string must be entered and not the result of a formula.

eric

Re,

Here is the code with TRUE or FALSE underlined in red; it is still possible to vary the color and add bold

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
Dim place As Byte
Dim i As Byte
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then
t = "Text 1 " & "TRUE" & " Text 2"
place = InStr(3, t, "TRUE")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("TRUE")
.Characters(i, 1).Font.ColorIndex = 3
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
Else
t = "Text 1 " & "FALSE" & " Text 2"
place = InStr(3, t, "FALSE")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("FALSE")
.Characters(i, 1).Font.ColorIndex = 3
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
End If
End Sub

See you +
Mike-31

A period of failure is a perfect time to sow the seeds of knowledge.

Well now, Plato, you asked for it!
--
Retirement is great! Especially in the Caribbean... :-)
☻ Raymond ♂

Should the red highlighting be done in the formula
or in the result display
Marc