How auto EnableEvents again on code-break and errors?

M

Michel

When one hits "End" on a error in the code after a EnableEvents=false,
the complete programming has been finised!

So how can a automaticly re-enable the events?

I tryed using a sub with EnableEvents=True that get's executed with a
OnTime-event after the code has been finished, but this gives "Can't
execute code in break mode" while I'm debugging and programming.

Also if I go in break-mode while debugging, the last line that
re-enables the events isn't getting executed. This way I need to
enable the events manually before I can start debugging it again.
 
D

Dick Kusleika

Michel

I don't think you can do it automatically. If I'm going to do it a lot, I
set up a sub like you and just run it after I exit debug mode. Otherwise, I
just use the Immediate Window.
 
D

Dave Peterson

Did you really use End by itself?

If yes, maybe you can rewrite your code:

Here's a simple example:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("a:a")) Is Nothing Then Exit Sub

On Error GoTo errHandler:
With Target
If IsNumeric(.Value) Then
Application.EnableEvents = False
.Value = .Value / 3
End If
End With

errHandler:
Application.EnableEvents = True

End Sub
 
Top