<div>
To be able to do an Undo<br />
<br />
you have to code the undo<br />
<br />

<pre><code id="code-20-39939759-1">Sub MyMacro()
'YourCode
Application.OnUndo &quot;Undo the last macro&quot;, &quot;UndoMyMacro&quot;
End Sub

Sub UndoMyMacro()
'YourUndoCode
End Sub</code></pre>
Regards
</div>


To be able to do an Undo

you have to code the undo



Sub MyMacro()
'YourCode
Application.OnUndo "Undo the last macro", "UndoMyMacro"
End Sub

Sub UndoMyMacro()
'YourUndoCode
End Sub

Regards

<div>
Hello,<br />
<br />
A little confused on where to apply this.<br />
<br />
The code I use is <br />
<br />

<pre><code id="code-20-39939815-1">Sub CopyPicture()
Dim WSThis As Worksheet
Dim WS As Worksheet
Dim Img As OLEObject
Dim WSImg As OLEObject

Set WS = ActiveSheet
Set WSThis = ThisWorkbook.Worksheets(&quot;Main&quot;)

On Error Resume Next
Set WSImg = WS.OLEObjects(&quot;Image1&quot;)
If Err = 0 Then
    
Else
    Set Img = WSThis.OLEObjects(&quot;Image1&quot;)
    Img.Copy
    WS.Range(&quot;A1&quot;).PasteSpecial
End If
On Error GoTo 0

End Sub</code></pre>
<br />
<br />
Would I select the keys ctl + L to run the undo code. Much like how I do ctl + L to apply run the code
</div>


Hello,

A little confused on where to apply this.

The code I use is



Sub CopyPicture()
Dim WSThis As Worksheet
Dim WS As Worksheet
Dim Img As OLEObject
Dim WSImg As OLEObject

Set WS = ActiveSheet
Set WSThis = ThisWorkbook.Worksheets("Main")

On Error Resume Next
Set WSImg = WS.OLEObjects("Image1")
If Err = 0 Then
    
Else
    Set Img = WSThis.OLEObjects("Image1")
    Img.Copy
    WS.Range("A1").PasteSpecial
End If
On Error GoTo 0

End Sub



Would I select the keys ctl + L to run the undo code. Much like how I do ctl + L to apply run the code

<div>
<div class="content wysiwyg-content">
Hello,<br />
<br />
Is there a way to undo a macro. Refer to my other <a href="http://http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_28385557.html" rel="ugc">Make excel macro available to all users</a> link for the creation and implementation of the macro, typing ctl + L. Right now that function doesn't work.<br />
<br />
Thanks
</div>
</div>


Hello,

Is there a way to undo a macro. Refer to my other Make excel macro available to all users (http://http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_28385557.html) link for the creation and implementation of the macro, typing ctl + L. Right now that function doesn't work.

Thanks

Edit exel macro to undo

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.