makroaufruf durch funktion

ich rufe ein makro durch eine funktion auf, das makro wird ausgeführt, aber eine anweisung nicht

--Makro---
Sub Undo()
Application.Undo
End Sub

--Funktion--
Function Undo_mk()
Application.Run ("Undo")
End Function

hat jemand ne ahnung warum undo nicht funzt??

gruß
shogun