Find(What... как обойти ошибку

[Taranov_ivan]

На листе №1 находится информация по предприятиям с пятизначным регистрационным номером. Какой можно написать макрос, чтобы при вводе номера отображалось на листе №2 информация по определенному предприятию. Я попытался написать, через find

Worksheets("1").Activate
Range("A1:B100").Find(What:="11123", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
Sheets("3").Cells(1, 1).Value = Selection.Row
Но столкнулся с проблемой. В случае если номер введен не правильно или такого не существует появляется ошибка. Можно ли как то это обойти, т.е. чтобы выдавало сообщение "Номер не найден"

[GSerg]

dim f as range
set f=Range("A1:B100").Find(What:="11123", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
if f is nothing then ...

[Taranov_ivan]

Спасибо болщое GSerg за ответ.

Я правильно понимаю, если собрать все во едно?

Worksheets("1").Activate
dim f as range
set f=Range("A1:B100").Find(What:="11123", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
Sheets("3").Cells(1, 1).Value = f.Row
if f is nothing then ...

[GSerg]

Нет.
Нафига проверять переменную после её использования?
Обычно проверяют до...