Is this word in column B

[mackay]

User has imported 5 columns, and an unknown number of rows.

Want a macro activated by, say, CTL-K which will see if the word 'warning' is in colmn B of any row.

If found at least once, need a message or something to say so. Otherwise a message to say 'not found'.

That is all I need at the moment..
But I might also like to look for 2 or 3 words, and show appropriate messages if they were found.

Thanks

 

[onlyadrafter]

Hello,

How about

Sub FIND_WORD()
    MY_WORD = InputBox("ENTER WORD", "DATA ENTRY")
    For MY_ROWS = 1 To Range("B65536").End(xlUp).Row
        If Range("B" & MY_ROWS).Value Like "*" & MY_WORD & "*" Then
            MY_ENTRY = MsgBox(MY_WORD & " found in B" & MY_ROWS, vbOKOnly, "FOUND")
            Exit Sub
        End If
    Next MY_ROWS
            MY_ENTRY = MsgBox(MY_WORD & " NOT found in B", vbOKOnly, "FOUND")
End Sub

 

[mackay]

Find This word

Hope this reply gets associated with my question and the answer.

Thank you so much for such a quick reply. It does just what I need.

Thank you, thank you.

Regards
Robert