例として、テキストボックスにデフォルトで作成される「テキスト+数字」という名前を、1-1、1-2、1-3というように変更する。
自動作成されたテキストボックスの名前は「テキスト1」~「テキスト100」まであるとする。
まず標準モジュールでマクロを作成して、以下のコードを入れて実行。
なお、コントロール名の変更はフォーム内からはできない。
Sub Module1()
Dim i, j As Long
i = 1
For j = 1 To 100 'コントロールの名前「テキスト+数字」の範囲を指定する
Forms("フォーム名").Controls("テキスト" & j).name = "1-" & i
i = i + 1
Next j
End Sub