Как проверить наличие определённого слова в столбце? - VBA

Формулировка задачи:

Здравствуйте!, Есть столбец ячеек в которых находятся слова, например "ликвид" или "порох", в произвольном порядке, а так-же может быть единственное слово или не быть вообще. Мне нужно проверить наличие в столбце слова "ликвид" и выполнить действо, например MsgBox "Есть ликвид". При проверке вхождения слова "порох" - MsgBox "Есть порох".

Решение задачи: «Как проверить наличие определённого слова в столбце?»

textual
                            Листинг программы 
                        

                            Sub test()
    Dim r1 As Range, r2 As Range
    Set r1 = Columns("A:A").Find("порох")
    Set r2 = Columns("A:A").Find("ликвид")
    If Not r1 Is Nothing Then MsgBox "Есть порох"
    If Not r2 Is Nothing Then MsgBox "Есть ликвид"
End Sub
                        