こんなコードでどうでしょうか? Sub 特定の文字だけフォント色を赤に() Const 特定Chara As String = "札幌" Dim 選択Cell As Range Dim 文字列inCell As String Dim 何番目inCell As Long Range("A1").CurrentRegion.Select 'Range("A1").Resize(100, 500).Select For Each 選択Cell In Selection 文字列inCell = 選択Cell.Value 何番目inCell = InStr(文字列inCell, 特定Chara) If 何番目inCell > 0 Then 選択Cell.Characters(Start:=何番目inCell, Length:=Len(特定Chara)).Font.Color = RGB(255, 0, 0) End If Next Range("A1").Select MsgBox "処理しました" End Sub 6行目は 空白列や空白行があると全部うまく選択できないので 6行目と7行目の「’」を消してお使いください。 なお、これだとすべての「札幌」を赤くするので訂正した「札幌」だけを赤くするには 元のファイルとの照合をするのマクロを作る必要があります。