Excel - Makro per Wenn Befehl starten

Hallo,

ich habe hier eine Excelmappe in der ich gerne ein Makro per Wenn Abfrage starten möchte
Ich habe hierfür im VBA ein Modul mit folgendem Inhalt erstellt:

Option Explicit
Public Function Makro_Start() As String
Tabelle2.NeueZeile
End Function

Dieses ruft dann in der Tabelle2 das Makro "NeueZeile" auf

Sub NeueZeile()
' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen
Application.ScreenUpdating = False
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 3).Select
MsgBox "Eine Nachricht"
Application.ScreenUpdating = True
End Sub

Nun das Problem....
Das Makro wird aufgerufen und die MessageBox öffnet sich.
Nur der vorherige Code, also das einfügen einer neuen Zeile funktioniert nicht.
Führe ich jedoch das Makro über ein Steuerelement aus funktioniert alles einwandfrei...

Wo liegt mein Fehler ?!?!
Danke und Gruß aus Osnabrück
Toast

Excel - Makro per Wenn Befehl starten