给所选区域单元格的某部分固定文字改变颜色

 

Public Sub ChgTxtColor()
Set myRange = Range("A1:A100") '検索範囲
substr = "(RD)" '赤になる文字
txtColor = 3  '文字色
For Each myString In myRange
lenstr = Len(myString)
lensubstr = Len(substr)
For i = 1 To lenstr
tempString = Mid(myString, i, lensubstr)
If tempString = substr Then
myString.Characters(Start:=i, Length:=lensubstr).Font.ColorIndex = txtColor
End If
Next i
Next myString
End Sub

文字色を下記のキャプチャーにより設定してください。