Error handling exception

[JackDanIce]

Hi,

Exploring the use of Error handling in VBA and stuck with following:

On Error GoTo myContinue
'code here to find an item and cut & paste it into a previously created worksheet "Exceptions"
'a flag to highlight if exceptions found which is called upon later in the macro
NoExceptionsFlag = False
myContinue: Worksheets("Exceptions").delete

I would like the macro to delete the worksheet "Exceptions" if no exceptions are found, otherwise carry on with the rest of the macro WITHOUT deleting the worksheet "Exceptions"

I've tried modifying the last two codes of line above to:

myContinue: NoExceptionsFlag = False
If Not NoexceptionsFlag Then: Worksheets("Exceptions").delete

but the line myContinue is always exceuted, regardless of whether the Error is found (i.e. the item to find is found or not)

Please can someone enlighten me?

Thanks in advance,
Jack

 

[RoryA]

Code is always executed in order. All that happens in your code is that you skip the intervening lines if there is an error. If not, you still run through the following code.
I would also point out that:
1. You should only use an On Error Goto label syntax to jump to a specific error handler section at the end of your code, not to simply skip a block of code.
2. You should always have a Resume statement of some kind in the error handler to reset error handling (unless you plan to simply exit the routine).

 

[JackDanIce]

Thanks Rory, what would be the syntax for RESUME in this case, i.e.

On Error GoTo myLabel
'stuff
myLabel
Resume Next
'more stuff

I may need to spend more time on this to fully grasp, so apologies if I'm asking anything simple!

Jack

 

[RoryA]

I think you missed my point 1...

 

[JackDanIce]

As I clicked send I realised that's what you wrote - i.e. it goes at the end, d'oh!

Ok, let me rephrase, how would I code:

IF something is found Then
do some stuff
Else
do some other stuff
End IF

Since I need to allow for instances when the item can't be found...