Undo last commad button

Sub Button1_Click()
    Application.Undo
End Sub

Originally Posted by slmi1313

no that didn't work i get a debug error
any other suggestions

Need more info then

Originally Posted by slmi1313

sorry ok this is the error Method"undo"of obect_'application'failed. error 1004

My code for the command buttons are for example

TextBox1.Value = TextBox1.Value & " check"

TextBox1.Value = TextBox1.Value & " testing"

so what happens is whatever is written in the text box stays and "check" is then written in the text box.

so what I need the undo command button to do is delete the last entry in the textbox. Also the text box was created using the control toolbox. hope this helps

It does not seem the Undo will work for this
How about

TextBox1 = ""

Originally Posted by slmi1313

TextBox1 = ""

I already use this code so I can clear everything that is in the textbox.

The only other thing I can think of is that instead of using a textbox, I use a cell then I think your code would work, but do you know what would need to write as a code for my buttons that generate the code now I have

TextBox1.Value = TextBox1.Value & " check"

but what would I need to get the "check" in a cell lets say cell E5

Range("E5")="Check"

This is a very vague question