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
Microsoft MVP Excel
SalesAid Software

"Don" wrote in message
...
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

Change to:

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

"Don" wrote in message
...
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

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

On 1 Maj, 20:56, Don wrote:
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

thanks,

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

"Per Jessen" wrote:

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

On 1 Maj, 20:56, Don wrote:
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

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don" wrote in message
...

thanks,

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

"Per Jessen" wrote:

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

On 1 Maj, 20:56, Don wrote:
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

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
---------------
Jacob Skaria


"Don" wrote:

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

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 Guillett" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don" wrote in message
...

thanks,

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

"Per Jessen" wrote:

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

On 1 Maj, 20:56, Don wrote:
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

sorry, tried that an no luck.

"Jacob Skaria" wrote:

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
---------------
Jacob Skaria


"Don" wrote:

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