InStrでセルに調べたい文字が含まれているかどうか確認する

InStr(調べる場所や文字,含まれる文字)
InStrが1以上（0でない正数）なら文字が存在します

＜サンプル＞
        Const myAns As String = "含まれる文字"
        Dim i As Long

        For i = 1 to 10
                If InStr(cells(i,"A").Value, myAns > 0 Then
                        Debug.Print "A列 " & i & "行には" & myAns & "が含まれます"
               else
                        Debug.Print "A列 " & i & "行には" & myAns & "がありません"
                End If
        Next i