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

Michel wrote:

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.

--

Dave Peterson