vba loop through textboxes code example

Example: vba loop through textboxes

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