Помогите пожалуйста новичку!

[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
Но столкнулся с проблемой. В случае если номер введен не правильно или такого не существует появляется ошибка. Можно ли как то это обойти, т.е. чтобы выдавало сообщение "Номер не найден"

[SergT]

Вопрос больше по теме VBA...
Попробуй
On Error goto Er
' Range("A1:B100").Find.....
Exit Sub
Er:
MsgBox "Чего то не так!"
End Sub

Ну а если просто игнорировать ошибку, то
On Error resume next
' Range("A1:B100").Find.....