Can't Undo after inserting Macro

[mel_97]

I have use a macro to show when the worksheet was last modified and now i can't Undo (or Ctrl+Z) anything on this worksheet.

The macro:

Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
    
    Range("A1") = Now()

Application.EnableEvents = True
End Sub

Source: Date Last Saved/Modified

Is there a way i can use this macro and still undo things??
Thanks in advance.

 

[rlv01]

I seem to recall that if a vba action changes the worksheet, it clears the undo stack.

 

[Michael M]

@riv01
That is correct, once a macro is run the UnDo stack is automatically cleared.....No way 'round it !!