フォームInitialize時のUnloadについて (ID:120145)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VBAでフォーム起動時に「ある条件の時はフォームを表示しないで閉じる。」 としたいので"UserForm_Initialize"イベント内に"Unload Me"を記述したの ですが、その条件の時に"Unload Me"した後"UserForm_Initialize"イベント の"END Sub"のところで、「オブジェクト変数または With ブロック変数が 設定されていません。(Error 91)」というエラーが出ます。 フォームの呼び出しをShowメソッドではなく、Loadステートメントで読み込 んでも同じエラーが出ます。 Initialize時にはまだロードされていないからなのかな？とも思うのですが、 "Unload Me"は通ってその後の"END Sub"でエラーになるというのはどういう ことでしょうか？ また、そういう場合はどのように書けばよいのでしょうか？ 宜しくお願い致します。 'ユーザフォームの呼び出し Private Sub CommandButton1_Click() UserForm1.Show End Sub 'ユーザフォーム起動時の処理 Private Sub UserForm_Initialize() If MsgBox("終了しますか？", vbYesNo) = vbYes Then Unload Me End If End Sub