Excel VBA Макросы: Как проверить наличие заданного слова в столбце?

[umbik]

Как проверить, есть или нет в указанном столбце указанное слово с помощью макроса?

[Администратор]

Макрос ищет указанное слово в столбце A:

Макрос

Sub Макрос()

    Dim rng As Range
   
   
    Set rng = Columns("A").Find(What:="слово", LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
       
    If Not rng Is Nothing Then
        MsgBox "В столбце есть указанное слово.", vbInformation
    Else
        MsgBox "В столбце нет указанного слова.", vbExclamation
    End If

End Sub

[свернуть]

[umbik]

спасибо