Macro para deshacer cambios en al hoja

Te anexo las macros, prueba cuál es la que necesitas en cada botón

Sub deshacer()
'
    Application.Undo
End Sub
Sub hacer()
    SendKeys "^y", True
    DoEvents
End Sub
Sub ControlZ()
    SendKeys "^z", True
    DoEvents
End Sub

Esta todo perfecto dante pero una consulta estas macro en botones comunes andan bien pero en botones activex no, es así o hay alguna forma de hacerlo en controles activex gracias