セル内の文字検索

Sub 文字列検索()
 
  '縦の列の変数
  Dim 縦の列 As Long
  '横の列の変数
  Dim 横の列 As Long
   
     '行はA列の2行目から最終行まで
     For 縦の列 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
     
     '列はA列から最終列まで
     For 横の列 = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
     
                              'セル内に"熊と鹿"の単語が1個以上入力されている場合
                              If InStr(Cells(縦の列, 横の列), "熊と鹿") >= 1 Then
                              
                                      '該当の場合にはセルを赤く塗りつぶしします
                                      Cells(縦の列, 横の列).Interior.ColorIndex = 3
                                      
                              'IF　構文終了
                              End If
     'For Next 構文終了
     Next 横の列
        
     'For Next 構文終了
     Next 縦の列

End Sub