VBA 特定文字列に色づけ 全シート

Option Explicit

Sub 本体を赤く()
'
' 本体を赤く Macro
'
'
Dim i As Integer

For i = 1 To Sheets.Count
    
    Worksheets(i).Activate
    
    '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    Cells.Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="本体", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    Cells.Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="バイク", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
    '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
    Range("A2").Select
Next
    Worksheets(1).Activate
End Sub