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