http://officetanaka.net/excel/vba/tips/tips11.htm
Sub Sample02()
Range("B2").Characters(Start:=7, Length:=6).Font.ColorIndex = 3
End Sub
http://officetanaka.net/excel/vba/tips/tips11.htm
Sub Sample02()
Range("B2").Characters(Start:=7, Length:=6).Font.ColorIndex = 3
End Sub