Public Sub A()
On Error GoTo err_handler
 
  'CODE
 
  GoTo end_sub
err_handler:
  Debug.Print Err.Number & " :" & Err.Description
  Debug.Assert False
 
  GoTo end_sub
err_debug:
  Resume 'Nur zum debuggen, um zu der Zeile zu gelangen, die den Fehler 
  ' verursachte
 
end_sub:
End Sub

Gruß
Dirk

--
?Get it right the first time