Question

I’m not very experienced with Excel, but I’m wondering if its possible to make a macro to do the following:

I want it to search the whole worksheet(the sheet name is “Invoice”) for the word “alert”. If the word exists on the sheet I want a Popup box to appear.

Please let me know if its possible.

Answer 1

This will create the msbox if it finds ‘alert’ on sheet Invoice:

Sub TestFind()

    Dim found As Variant

    Set found = Sheets("Invoice").Cells.Find("alert", Sheets("Invoice").Cells(1, 1), xlValues, xlPart)

    If (Not found Is Nothing) Then

        'found
        MsgBox "Found " & found, vbOKOnly, "Found"
    Else

        'not found

    End If

End Sub