Unable to use Ctrl Z With New Macro

[yazanibrahim1984]

So I have the below Macro code that is set to change a cell in column E to 0.00 if a cell in column K has the word yes.

However, I'm unable to go-back (Ctrl Z) once the I type in Column K (Sometime I type yes & then I have to remove it change it but I want the cell value to go back to its original)

Please advise


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("K1").End(xlDown)) Is Nothing Then Exit Sub

Dim LR As Long
Dim i As Integer
LR = Cells(Rows.Count, "K").End(xlUp).Row
For i = 1 To LR
If Cells(i, 11) = "Yes" Then
Cells(i, 5) = 0
Cells(i, 5).NumberFormat = "0.00"
Else
End If
Next
End Sub

 

[Joe4]

Undo (CTRL Z) does not work on macros/VBA.
See this discussion for details and workarounds: https://excel.tips.net/T002060_Preserving_the_Undo_List.html