Excel VBA Макросы: Поиск с возвратом значения Истина Ложь.

[Rengame113]

Есть ли возможность осуществить поиск с возвратом булевских значений.
Вставляться будет в  такой пример: если на листе есть Ромашка, то действие 1, если нет, то действие 2.

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

Метод 'Find' не возвращает False, True, а возвращает ячейку, где было найдено. Если не найдено, то возвращается Nothiing.

Этот макрос ищет текст 'Ромашка' по всему листу:

Макрос

Sub Макрос()

    If Cells.Find(What:="Ромашка", LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False) Is Nothing Then
        MsgBox "не найдено"
    Else
        MsgBox "найдено"
    End If
   
End Sub

[свернуть]

[Rengame113]

Спасибо.