スキルアップ・問題解決なら、モーグにおまかせ！

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

Sub Sample()

Dim myCtrl As Control

    For Each myCtrl In Controls
        If TypeName(myCtrl) = "TextBox" Then _
            myCtrl.Value = vbNullString
    Next

End Sub