VBA: Looping through textboxes.

[dbmathis]

Hi all,

I know this is a dumb question, but how do I loop through textboxs rather than do this?

Private Sub Clear_Click()

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

End Sub

These textboxes exist on a worksheet and were added with the VBA toolbar.

Thanks.

 

[Norie]

Try this.

Dim ws As Worksheet
Dim t
    Set ws = Worksheets(1)
    For Each t In ws.OLEObjects
        If Left(t.Name, 7) = "TextBox" Then
            t.Object.Text = ""
        End If
    Next t

 

[Andrew Poulsom]

Like this?

Private Sub Clear_Click()
    Dim x As Integer
    For x = 1 To 4
        ActiveSheet.OLEObjects("TextBox" & x).Object.Text = ""
    Next x
End Sub

 

[dbmathis]

Awesome! Thanks Andrew Poulsom and Norie!