excel - テキストを検索するExcelマクロ、見つかった場合はポップアップボックス

Question

私はExcelの経験があまりありませんが、次のことを行うマクロを作成できるかどうか疑問に思っています。

ワークシート全体（シート名は「請求書」）で「アラート」という単語を検索してほしい。単語がシートに存在する場合は、ポップアップボックスを表示します。

可能であれば教えてください。

Answer 1

これにより、シートの請求書で「アラート」が見つかった場合にmsboxが作成されます。

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