VBA message box based on text being present

FWIW:

Sub LewisK()
Dim i As Long
For i = 2 To Range("H" & Rows.Count).End(3).Row
    If Cells(i, "H") Like "*ST CROLLES*" Then
        MsgBox "Row " & i & " Column " & "H" & " has the word"
    End If
Next i
End sub