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
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
3 people are following this question.