テキストボックスオブジェクト参照を動的に構築するにはどうすればよいですか？

Question

は、私は同様の質問Hereを尋ね、今私は再び同じことを行う必要がありますが

エクセル2010でVBAを使用して、この時間は、基本的に私は、一般的な名前を持つ多数のテキストボックスを（つまりのTextBox1、TextBox2をなど）を持っています。どのように私はループを作成することができるように、オブジェクト参照をプログラマチックに構築できますか？

編集： これはワークシート上の通常のテキストボックスです。私は、このワークシートのサブを起動すると、私は次の行でテキストボックスを参照することができます。

TextBox1.LinkedCell = "B2" 

Answer 1

これは、どのようなあなたの後です：

Dim oleObj As OLEObject 
'Dim oleTxtBox As TextBox 

For Each oleObj In Sheet1.OLEObjects 
    If oleObj.OLEType = xlOLEControl Then 
     If Mid(oleObj.progID, 1, 14) = "Forms.TextBox." Then 
      Set oleTxtBox = oleObj.Object 
      oleTxtBox.PasswordChar = "*" 
     End If 
    End If 
Next 

ちょうどTextBoxオブジェクトから例のフィールドとしてPasswordCharを使用して、実際に私を残しませんでしたDimとしてTextBox