Problem mit Registerblass - einfügen

Sub Tabellenblatt_neu()
On Error GoTo ErrorHandler    ' Fehlerbehandlung aktivieren.
new_table = InputBox$("Wie soll die neue Rubrik heissen ?")
ActiveWorkbook.Worksheets.Add after:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Name = new_table
Exit Sub
ErrorHandler:
MsgBox "Konnte Rubrik unter dem gewünschten Namen nicht erstellen!"
Exit Sub
End Sub

Der Error-Handler wird auch richtig abgearbeitet, tritt ein Fehler auf oder gibt es bereits eine Registerkart mit gleichem Namen.
Warum aber wird mir dann (obwohl das Program verlassen wird) gleichwohl ne neues Registerblatt (mit fortlaufender Nummer) in die Arbeitsmappe eingefügt ?
Wie könnte ich das verhindern ?
Bin sehr dankbar, wenn mir da jemand nen mir bisher unbekannten Trick verraten könnte !