undo

ich habe eine tabellemit 88 zeilen

in 32 dieser 88 zeilen darf etwas stehen.
wenn der 33. eintrag erfolgt soll dieser automatisch gelöscht werden.
die anzahl der zellen fragen ich über "zählewenn" ab und über
"=WENN(G3>32;MakroStart();"")" fufe ich die fuktion "MakroStart" auf Function MakroStart()
MsgBox ("zuviel.")
Application.Run ("Undo")
End Function

die dann das makro UNDO

Sub Undo()
Application.Undo
MsgBox ("Eintag gelöscht")
End Sub

aufruft.
das makro wird zwar anufgerufen (die msgbox wird angezeigt, aber undo hat keine wirkung - warum nicht ???)

ich bin echt schon am verzweifeln

patrick