Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim UndoName As String
UndoName = Application.CommandBars("Standard").FindControl(ID:=128).Caption
MsgBox Application.CommandBars("Standard").Controls(UndoName).List(1)
End Sub