In excel VBA,Application.OnRepeat does not work.

Question

Sub tmp() Application.OnRepeat "VBA-redo", "My_Repeat_Sub" Application.OnUndo "VBA-Undo", "undo" End Sub Sub My_Repeat_Sub() Debug.Print "REPeat" End Sub Sub undo() Debug.Print "undo" End Sub