Поиск значения в диапазоне

[Sergey112233]

Уважаемые форумчане.
Для поиска номера в диапазоне есть такая программа.
Sub Inputbox1()
Dim iValue As Variant
Do
iValue = Application.InputBox("Введите номер:", "Ввод")

If iValue = False Then Exit Sub 'если нажали Cancel

Loop Until (iValue < 1000000 And iValue > 1)
Columns("A:A").Select
Selection.Find(What:=iValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

End Sub

Но если введен номер, который хоть и принадлежит заданному диапазону от 1 до 1000000, но в ячейках еще не записан, программа останавливается.
Пример. В ячейках нет номера 450. Задаем поиск значения 450. Программа 450 не находит, останавливается здесь:
Selection.Find(What:=iValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

И выдает ошибку 91.

Подскажите, пожалуйста, как преодолеть эту ошибку, сообщить через MsgBox о том, что такой номер не найден в диапазоне и вернуться к записи:
iValue = Application.InputBox("Введите номер:", "Ввод")

[IgorGO]

on error resume next
Columns("A:A").Find(What:=iValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
if err.number>0 then Msgbox iValue & " Not Found"
on error goto 0

[Sergey112233]

IgorGO,
Спасибо