Sub Sample1() 'Characters = 対象の文字数の文字色を赤色に変更 ActiveCell.Characters(Start:=3, Length:=4).Font.ColorIndex = 3 End Sub