How to programmatically code an 'undo' function in Excel-Vba?

Is there anyway to code an undo function onto a CommandButton similar to the Excel's very own undo function?

Or a function which is capable of calling Ctrl-Z shortcut key.