Break out of a loop in Excel2007?

[Don]

I created some code that gets Excel in a loop when I open the file and I need
to know how to break out? It is in the Sheet option using the
Application.EnableEvents in Office 2007 and will not let me break out of the
loop and I have to close doing a cntl+alt+delete and hard crashing Excel.

I have updated I think all the files, but if I have some not updated and
people move to Office 2007, I would like another way to get out?

Any help?

see code below from the sheet

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Range(Cells(6, 6), Cells(7, 7)).Select
Selection.ClearContents
Application.EnableEvents = False
End Sub

 

[Don Guillett]

??

 

[Bob Umlas]

Change to:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("F6:G7")ClearContents
Application.EnableEvents = True
End Sub

 

[Per Jessen]

Hi

You have to set EnableEvents = False before anything else, and set
=true again later:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range(Cells(6, 6), Cells(7, 7)).ClearContents
Application.EnableEvents = True
End Sub

Best regards,
Per

 

[Don]

thanks,

but if I am in a loop, how can I get out??
I will change going forward.

 

[Don Guillett]

That's why I put ??. Where is the loop?

 

[Jacob Skaria]

Hi Don

You can use 'Ctrl'+'Pause/Break' buton to break a running code...
You can even give it a try......

If this post helps click Yes

 

[Don]

sorry, the loop is because enable events is turned on and if there is an
update on the page, it will start from the top again. Should be turning it
to off first so it will go through once but it gets stuck in 2007 and will
not let you break out

 

[Don]

sorry, tried that an no luck.

Hi Don

You can use 'Ctrl'+'Pause/Break' buton to break a running code...
You can even give it a try......

If this post helps click Yes