Quick way to ClearContents of UserForm TextBoxes?

[Big Lar]

I have several UserForms with many TextBoxes.
To quickly ClearContents I've tried this which produces Object required error.
Any suggestions?

For i = 1 To TextBox.Count
         TextBox(i).ClearContents
        Next I

 

[RoryA]

You have to loop through all the controls and check the type:

For Each ctl in me.controls
    If LCase$(Typename(ctl)) = "textbox" then ctl.Text = vbnullstring
        Next ctl

 

[Big Lar]

Thanks RoryA.
If the UserForm also includes ComboBoxes and Labels, can those controls be cleared with the same For each? (I've tried, unsuccessfully)

 

[RoryA]

Yes:

For Each ctl in me.controls
    Select Case LCase$(Typename(ctl))
        Case "textbox"
            ctl.Text = vbnullstring
        Case "combobox"
             ctl.Listindex = -1
        Case "label"
             ctl.Caption = vbnullstring
    End Select
        Next ctl

though generally you wouldn't need to clear labels.

 

[Big Lar]

Brilliant!
Thank you very much.​

 

[Big Lar]

I’ve applied your code to one procedure, and it works perfectly.

Since I have many other Userforms that can use the same “upgrade”, I thought about creating a ClearTextBoxes Module.
Instead of replacing all the TextBox# = “” routines for each instance, I could simply:
Call MacroClearTextBoxes.

So, how do I set the reference for the UserForm? And, overcome the Compile error “Invalid use of Me Keyword?

Here’s my lame attempt:

Sub MacroClearTextBoxes()
With ActiveUserForm
 
For Each ctl In Me.Controls
    Select Case LCase$(TypeName(ctl))
        Case "textbox"
            ctl.Text = vbNullString
        Case "combobox"
             ctl.ListIndex = -1
    End Select
        Next ctl
End With
End Sub

 

[RoryA]

Pass the form as an object argument:

Sub MacroClearTextBoxes(uf as Userform)
Dim ctl as MSForms.Control
For Each ctl In uf.Controls
    Select Case LCase$(TypeName(ctl))
        Case "textbox"
            ctl.Text = vbNullString
        Case "combobox"
             ctl.ListIndex = -1
    End Select
    Next ctl
End Sub

 

[Big Lar]

Rory,
I copied/pasted your code to my ClearTextBoxes module...
And changed procedure code in my UserForm CommandButton3_Click() to
Call MacroClearTextBoxes.

resulting in Compile error: "Argument not optional"

So...now I'm still lame and don't know how to fix it...in over my head.

 

[RoryA]

Call MacroClearTextBoxes(me)

is what you need.

 

[Big Lar]

Thanks Rory
Your assistance is greatly appreciated!