GoTo NotFound

**carsto** · 07-02-2007, 11:14 AM

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?

Please Login or Register  to view this content.

**nattasiray** · 07-02-2007, 11:25 AM

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** · 07-02-2007, 12:00 PM

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** · 07-02-2007, 01:19 PM

This link should help

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

VBA Noob

**mudraker** · 07-02-2007, 05:34 PM

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

use

Please Login or Register  to view this content.

after your find command

and of course read the artice that VBA Noob suggested

GoTo NotFound

LinkBack

Thread Tools

Rate This Thread

Display

GoTo NotFound

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions