セル内の文字列の一部だけフォントカラーを変える

セルに書かれた文字列の、一部の色を変えたら、それはマクロの自動記録でどのように記録されるのかを実験してみた。

Sub 8文字目から2文字を赤()
   With ActiveCell.Characters(Start:=8, Length:=2).Font
       .ColorIndex = 3
   End With
End Sub

本当は、1〜7文字目を黒、10文字目以降も黒というコードや、
その他細々としたプロパティも含まれていた。

これと、検索を組み合わせると、キーワードの色文字色を変えるということが実現できそうだ。

シンタックスハイライトとまでは言わないものの、使いどころがありそう。