undo button not working

[jrisebo]

when I do something, then go on to something else, the undo button isnt working. I have read that it could be VBA causing this, how do I find out which one, and correct?

 

[jrisebo]

If you change it to

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
        
    Dim WW_Template As Workbook
    Set WW_Template = Application.ActiveWorkbook
    
    Dim InputSheet As Worksheet
    Set InputSheet = WW_Template.Worksheets("INPUT")
    
    Dim SampleSheet As Worksheet
    Set SampleSheet = WW_Template.Worksheets("Sample")

    Dim Sh As Shape
    For Each Sh In SampleSheet.Shapes
        Sh.Delete
    Next Sh

GenerateViews
End Sub

It will only run when you change a value. Entering data will still cause the undo stack to be cleared.

So unless I delete this code, it will always clear the stack changing a value? Can I put this code somehow on another tab that we dont do input from and have it pull the values from the input tab?

 

[VoG]

So unless I delete this code, it will always clear the stack changing a value?

correct.

Can I put this code somehow on another tab that we dont do input from and have it pull the values from the input tab?

Technically that is possible to do mbut it would still cause the undo stack to be cleared.

 

[jrisebo]

correct.

Technically that is possible to do mbut it would still cause the undo stack to be cleared.

DANG!

Anyway you know to create a drawing from inputs that dont cause this to happen?
What if I just reference the inputs we need to do the drawing to another sheet, and then use those for the drawing, that should do it correct?

 

[VoG]

I can't see any way of doing it without using event (automatic) code.