I am using this Macro:
Acct = Application.InputBox(prompt:="Enter Account", Type:=1)
Columns("A:A").Select
Selection.Find(What:=Acct, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

To find an account # in Column A ( Ther are about 1700 and is a report
downloaded from a database, the report contains different information
regarding the account from Column B to E.
My problem is that if I input an account that is not in the report it stop
the Macro and does not continue.
Is it possible to include in the report a message saying "Account not found"
with a button to cancel the operation instead of getting an error.

Thank you in advance

Fernando