http://kjirou.sakura.ne.jp/mt/2012/11/vbaexcel_1.html
ActiveCell.Characters(Start:=match.FirstIndex + 1, Length:=match.Length).Font.colorIndex = colorIndex
http://kjirou.sakura.ne.jp/mt/2012/11/vbaexcel_1.html
ActiveCell.Characters(Start:=match.FirstIndex + 1, Length:=match.Length).Font.colorIndex = colorIndex