Extreme difficult task

[tv9_rohith]

Test : I have a text box in sheet 1

will insert one shape( Star , reclagle, circle ) to act as command button for clearing the data in Textbox1.

formula is :

TextBox1.Text = ""


how do we do this ?

 

[Sal Paradise]

Step 1: Create Shape
Step 2: Right-click "Insert Macro" (or something similar -- my excel is in Japanese)
Step 3: Add above code to the macro
Step 4: Ask an extremely difficult question

 

[tv9_rohith]

not able to clear the data in the textbox 1.

I have assigned a macro to that its not happening.

Sub Oval1_Click()
TextBox1.Text = ""End Sub


and the error line is Sub Oval1_Click()

 

[GTO]

Presuming TextBox1 resides on Sheet1, wherein 'Sheet1' is the worksheet's codename.

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br>    <br><SPAN style="color:#00007F">Sub</SPAN> Oval1_Click()<br>    Sheet1.TextBox1.Value = vbNullString<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>