GoTo NotFound

[carsto]

I’m preceding a Selection.Find with On Error GoTo NotFound

Is this going to GoTo NotFound on ANY and ALL ERRORS?
Is there a way to say if the Selection is not Found go to NotFound?

        On Error GoTo NotFound
        
        Columns("EH:EH").Select
            Selection.Find(What:=NewEntry, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select

[nattasiray]

Because you forgot to place subroutine name NotFound

Correct this code

On Error GoTo NotFound

Columns("EH:EH").Find(What:=NewEntry, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

NotFound:

If Err.Number = ____ then
Msgbox _______
Else

End if

The underline is the code that you want to put it

[carsto]

Actually I do have "NotFound: " in my code, I just left it out of my post.

I forced the error number to a msgbox and found it to be #91 but
Is there a list of Error numbers somewhere?

[VBA Noob]

This link should help

http://support.microsoft.com/kb/146864

VBA Noob

[mudraker]

Once the on error command is run it is active for all errors until changed or turned off

use

On Error GOTO 0

after your find command

and of course read the artice that VBA Noob suggested