[[20060428204824]]　『ユーザホームの立ち上げ』（４ｋｕ４ｋｕ）　ページの最後に飛ぶ

『ユーザホームの立ち上げ』（４ｋｕ４ｋｕ）

Private Sub CommandButton3_Click()

    Range("d5") = ComboBox1

ComboBox1 = ""

    Range("d6") = ComboBox2

ComboBox2 = ""

    Range("d7") = ComboBox3

ComboBox3 = ""

 Application.ScreenUpdating = True
     Exit Sub
End Sub

上記のコードでユーザホームをクリアー（空白）しています。
終了して、立ち上げたときはクリアーされません。
クリアーされた状態で立ち上げたいのですが可能でしょうか
教えてください

下記のコードがユーザホームのコードの一部です。

Private Sub UserForm_Initialize()

ComboBox1.AddItem "0"

ComboBox1.AddItem "1"

ComboBox1.AddItem "2"

ComboBox1.AddItem "3"

ComboBox1.ListIndex = 0

ComboBox1.AddItem "0"

Private Sub UserForm_Initialize()

ComboBox1.AddItem "" ←を書けばクリアーの状態になることはわかりました。

ComboBox1.AddItem "1"

ComboBox1.AddItem "2"

ComboBox1.AddItem "3"

ComboBox1.ListIndex = 0

失礼いたしました

（４ｋｕ４ｋｕ）

コメント返信：