Hi Fernando

One way among several:

Sub test()
Dim Acct As Double
Dim Here As Range
Acct = Application.InputBox(prompt:="Enter Account", Type:=1)
On Error Resume Next
Set Here = Columns("A:A").Find(What:=Acct, _
LookIn:=xlValues, _
LookAt:=xlWhole)
If Here Is Nothing Then
MsgBox "No cigar"
Exit Sub
End If
Here.Select
MsgBox "Working on " & Here.Address & " further"
MsgBox Here.Address & " is great you know", vbInformation
End Sub

Note, I changed xlPart to xlWhole, otherwise 800 would be found in a cell
containing 8000. Probably not good for account numbers.

HTH. Best wishes Harald

"Fgomez" skrev i melding
...
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