Resume Next not Resuming

[ChuckDrago]

Hi all,
I have a macro that loops through a list of items, locates them on another sheet via a FIND method and collects some data pertaining to the found item. It works well, except that it stops when the item is not found. To handle this, I used an On Error Resume Next statement, so that the item not found is skipped. And therein lies the issue... The Resume Next portion is not resuming.

The error code thrown is 91. The error setting in my computer is Break on unhandled errors. The macro stops via the End Sub below the inoperative Resume Next. Here is the related code:

 Range("A:A").Select
        On Error GoTo NotListed
        Selection.Find(What:=CurID, After:=ActiveCell, LookIn:=xlFormulas, _
             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=False, SearchFormat:=False).Activate
             If Trap <> "Yes" Then...etc ,etc

and the Go To section is simply

NotListed:
     Trap = "Yes"
     On Error Resume Next
End Sub

The idea was to set the flag "Trap", so that the item not found is ignored and the loop moves to the next item (named CurID).
Any help will be appreciated as usual.
Chuck

 

[Fluff]

Rather than using error handling, it's best to prevent the error like

Dim Fnd As Range
Set Fnd = Range("A:A").Find(What:=CurID, After:=ActiveCell, lookIn:=xlFormulas, _
             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=False, SearchFormat:=False)
If Not Fnd Is Nothing Then
   'value found so do something
End If

 

[ChuckDrago]

Rather than using error handling, it's best to prevent the error like

Dim Fnd As Range
Set Fnd = Range("A:A").Find(What:=CurID, After:=ActiveCell, lookIn:=xlFormulas, _
             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=False, SearchFormat:=False)
If Not Fnd Is Nothing Then
   'value found so do something
End If

Almost there, Fluff...and thanks for the assist. Now, what I need is to ACTIVATE the cell where CurID was found, so that I can extract data using ActiveCell.Offset(0,x). I wrote MsgBox ActiveCell.Address as the first statement after your find method and it yielded "$A$1" when the item was actually located at $A$5.
Thanks in advance,
Chuck

 

[Fluff]

It's best to avoid activating cells,so you could use

If Not Fnd Is Nothing Then
   MsgBox Fnd.Offset(1, 1).Value
End If

or using active cell

If Not Fnd Is Nothing Then
   Fnd.Select
   MsgBox ActiveCell.Offset(1, 1).Value
End If

 

[ChuckDrago]

It's best to avoid activating cells,so you could use

If Not Fnd Is Nothing Then
   MsgBox Fnd.Offset(1, 1).Value
End If

or using active cell

If Not Fnd Is Nothing Then
   Fnd.Select
   MsgBox ActiveCell.Offset(1, 1).Value
End If

Works like a dream (used to be a nightmare!). Thanks a lot, Fluff.
Chuck

 

[Fluff]

You're welcome & thanks for the feedback