サンプルマクロは、シートに配置したテキストボックスを一度にクリアします。
コントロールのあるシートのコードウインドに記述してください。

Sub Sample()

    Dim myObj As OLEObject

    For Each myObj In OLEObjects
        If TypeName(myObj.Object) = "TextBox" Then _
            myObj.Object.Value = vbNullString
    Next
    
End Sub