Public Sub Something()
On Error GoTo err_handler
 
   'CODE
 
 
  GoTo endproc
err_handler:
  Debug.Print "Fehler"
  Debug.Assert False
  Resume Next              'Nächste Zeile weitermachen
  GoTo endproc
err_debug:
  Resume                       'Wenn du z.B. beim debuggen wieder auf den 
  ' Fehler springen willst
endproc:
 
End Sub

Gruß
Dirk

--
?Get it right the first time