Error Handling with Selection.Find not working fine

[lkarthik25]

I have an excel where I have to check if an account is present in which of two account listings. Else, I have to go to the next account. The code I am using is:

<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif; white-space: inherit; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;">[COLOR=#00008B]For[/COLOR] x=[COLOR=#800000]1[/COLOR] [COLOR=#00008B]to[/COLOR] acc_num
Sheets([COLOR=#800000]"List1"[/COLOR]).[COLOR=#00008B]Select
[/COLOR]Range([COLOR=#800000]"A1:A100"[/COLOR]).[COLOR=#00008B]Select
[/COLOR][COLOR=#00008B]On[/COLOR] [COLOR=#00008B]Error[/COLOR] [COLOR=#00008B]GoTo[/COLOR] CheckList2
Selection.Find(what:=x).Activate
[COLOR=#00008B]GoTo[/COLOR] Found

CheckList2:
Sheets([COLOR=#800000]"List2"[/COLOR]).[COLOR=#00008B]Select
[/COLOR]Range([COLOR=#800000]"A1:A100"[/COLOR]).[COLOR=#00008B]Select
[/COLOR][COLOR=#00008B]On[/COLOR] [COLOR=#00008B]Error[/COLOR] [COLOR=#00008B]GoTo[/COLOR] NotFound
Selection.Find(what:=x).Activate

Found:[COLOR=#808080]'More Code to execute if account is found

[/COLOR]NotFound:
[COLOR=#00008B]On[/COLOR] [COLOR=#00008B]Error[/COLOR] [COLOR=#00008B]GoTo[/COLOR] [COLOR=#800000]0
[/COLOR][COLOR=#00008B]Next[/COLOR] x
</code>

When an account is not found in List1 I still get the error pop-up: Run-time '91' : Object variable or With block not set.
I am unable to see why the error handling is not doing its job. Please help me out.

 

[RoryA]

You need a Resume statement to reset the error handler. But it's better to simply test if the value is found:

Dim rngFound as range
For x=1 to acc_num
Set rngFound = Sheets("List1").Range("A1:A100").Find(what:=x) 
If rngFound is nothing then
Set rngFound = Sheets("List2").Range("A1:A100").Find(what:=x)
End if

If not rngFound is nothing then
RngFound.activate
'More Code to execute if account is found
End if
Next x