HELP DELETE TEXT FROM TEXT BOXES ALL AT ONCE

Posted by JIMINEY DEHEY on December 10, 2001 6:35 PM

I have a calendar with 31 text boxes. I want a macro that will delete the text from all the text boxes on the sheet but will not delete the entire textbox.

Posted by DaK on December 10, 2001 7:02 PM

Crude, but it works.

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
etc...
etc..
etc.

Posted by Colo on December 10, 2001 8:51 PM

Hi JIMINEY. It works on my version(Excel97).
Please Try this.

Sub test()
Dim TB As Object
For Each TB In ActiveSheet.Shapes
If TB.Type = 17 Then ActiveSheet.TextBoxes(TB.Name).Text = ""
Next
End Sub

Posted by JIMINEY DEHEY on December 11, 2001 9:05 AM

THANKS, WORKED LIKE A CHARM