создание поиска

[Cone]

Уважаемые программисты, помогите дописать код поиска по значению,
В общем то все работает но когда искомое слов или число отсутствуют то вылетает баг, что нужно дописать и как чтобы при ненахождениии значения появлялся MsgBox ("искомые данные не найдены")



Sub Finderer()
'
Dim FD As Variant

FD = InputBox("ВВЕДИТЕ ИСКОМОЙ СЛОВО ИЛИ ЧИСЛО)

'
Columns("B:B").Select
Selection.Find(What:=FD, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select

End Sub

[EducatedFool]

Sub Finderer()
    FD = InputBox("ВВЕДИТЕ ИСКОМОЙ СЛОВО ИЛИ ЧИСЛО", "Мой поиск")
    If FD = "" Then Exit Sub    ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска
    Dim cell As Range: Set cell = Range("B:B").Find(FD)    ' собственно поиск
    ' если ничего не нашли - выход из макроса
    If cell Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub

    MsgBox "Значение """ & FD & """ найдено в ячейке " & cell.Address, vbInformation
    ' cell.Select
End Sub

[Cone]

Все отлично работает, спасибо большое EducatedFool, еще одна просьба надо чтобы при нахождение эта ячейка выделялась, чтобы сразу было видно результат!

[EducatedFool]

замените

' cell.Select

на

cell.Select

(раскомментируйте последнюю строку, убрав одинарную кавычку в начале строки)

[IgorGO]

EducatedFool, однако...
серьезно подготовился к возможному вопросу)))

[Cone]

Вот я тупой, я думал ActiveCell.Select надо, спасибо!