clear textbox using cmd button

[Amit Modi]

I have 10 textbox,,textbox1 to textbox10.
currently I clear as follow one by one.
textbox1.value=""
textbox2.value=""

but its boring to type for every textbox.

please provide short code for the same.
thank you

 

[Khalid NGO]

Hi Amit,
something like this?

Sub Clear_TextBox()
Dim tbx As OLEObject
For Each tbx In ActiveSheet.OLEObjects
If TypeName(tbx.Object) = "TextBox" Then
tbx.Object.Text = ""
End If
Next
End Sub

 

[Amit Modi]

my textboxes are in userform, is it ok for userform??

 

[Khalid NGO]

Amit please see the below link for userform txtboxes:
http://www.mrexcel.com/forum/excel-questions/75739-command-button-clear-userform-textboxes.html

 

[Deepak]

check this..

dim ctl As Control
For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox"  Then ctl.Value = ""
Next