Replace Text and Change font color

Question

I'm stuck. I was successfully able to replace 3 texts in a column to a specific text. But am unable to change the font of the replaced texts to Red. Would appreciate help. Thanks Following is the current code

Worksheets("HPR").Columns("E").Replace _
What:="IM", Replacement:="Non-IM", _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("HPR").Columns("E").Replace _
What:="Comp", Replacement:="Non-IM", _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("HPR").Columns("E").Replace _
What:="", Replacement:="Non-IM", _
SearchOrder:=xlByColumns, MatchCase:=True"

Answer 1

Just add the below lines to the beginning of your code.

With Application.ReplaceFormat.Font
    .Subscript = False
    .Color = 255
    .TintAndShade = 0
End With

Now add the below line after all the MatchCase:=True,

ReplaceFormat:=True