VBA bucle a través de cuadros de texto

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
Fierce Falcon