EXCEL VBA ユーザーフォーム内のテキストボックスを一括処理する方法について

EXCEL　VBAのユーザーフォームについて質問があります。
ユーザーフォームを作り、その中にコンボボックスを１個、テキストボックスを１００個設置する。
コンボボックスの値が１のときはテキストボックス１～テキストボックス５０までのEnabledをFalseに設定し、
コンボボックスの値が２のときはテキストボックス１～テキストボックス１００までのEnabled をFalseに設定する。
このとき、TextBox1.Enabled = False、TextBox2.Enabled = False・・・と一つ一つ書いていくのではなく、
セルを処理するときと同様に、テキストボックスの番号を変数にして処理することは可能でしょうか。

Private Sub ComboBox1_Change()
　Dim i As Integer
　　If ComboBox1.Value = 1 Then
　　For i = 1 To 50
　　TextBox(i).Enabled = False
　　Next i
　　ElseIf ComboBox1.Value = 2 Then
　　For i = 1 To 100
　　TextBox(i).Enabled = False
　　Next i
　　End If
End Sub

というような処理をイメージしているのですが、うまくいきません。どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/04/14 21:39

UserForm1.Controls("TextBox" & i).Enabled = False

かな？

この回答へのお礼

ありがとうございます！できました。
またよろしくお願いいたします。

お礼日時：2009/04/14 22:00