Do～Loopを使いセルからテキストボックスへ値取得方法

質問

現在Excel2000を使用しています。

セルのA1からA5までそれぞれ名前が入っており、ユーザーフォームにはテキストボックスが1～5まで並んでいます。そこでDo～Loopを使用してテキストボックスにそれぞれ名前を取得しようとしていますが、うまくいきません。

Sub 営業担当者取得()
Dim E As Integer
Workbooks("kojh.xls").Activate
Workbooks("kojh.xls").Sheets("営業担当者").Range("a1").Select

E = 1
With 営業担当者登録
Do
.TextBox(E) = ActiveCell.Text
ActiveCell.Offset(1).Select
E = E + 1
Loop Until ActiveCell = ""
End With

End Sub

.TextBox(E)の部分でエラーが出てしまいます。このような使用方法はできないのでしょうか？
もしくは他にやりかたがあれば教えて下さい。

よろしくお願いします。

回答No.1

n-jun · ベストアンサー

.Controls("TextBox" & E)

ではないかな？

お礼

返答ありがとうございます。
思っていたようにできました！！
大変参考になりました。ありがとうございます。