Undo last commad button

[slmi1313]

Hello All,

I need to create an Undo Last command button.
I have created a textbox using the control toolbox and I have created command buttons that populate text when I click them into the text box.
Do you guys know the code for a command button to undo the last entry in the text box

[davesexcel]

Sub Button1_Click()
    Application.Undo
End Sub

[slmi1313]

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

[davesexcel]

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

Need more info then

[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

[davesexcel]

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 = ""