Excel VBA ブックが閉じれない

質問

Excel2016を使用してVBAを使用しています。
VBA初心者ですが、よろしくお願いします。

質問内容は以下になります。
EXCEL起動と同時にUserFormを表示させ、UserForm上のコマンドボタンから
ダイアログボックスを表示し、他ブックを開く処理なのですが、
他ブックを開くまでは問題ないのですが、他ブックが閉じれない状態になります。

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
　各種処理
End Sub

Private Sub CommandButton1_Click()
Dim OpenFileName As String
SetCurrentDirectory (Worksheets(1).Cells(11, 3))
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Workbooks.Open OpenFileName
End Sub

UserFormを閉じると開いたブックも閉じることが可能です。
タスクマネージャーから強制的に終了しようとすると、以下メッセージが出ます。

”開いているダイアログボックスがあるため、Microsoft Excel を終了できません。[OK]をクリックしてから、Microsoft Excelに切り替えてダイアログを閉じて下さい。"

UserFormを閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。
申し訳ございませんがご教授下さい、よろしくお願いいたします。

回答No.1

mt2015

別なExcelオブジェクトを作って開いてみては？
質問の意味を取り違えていたらごめんなさい。

Workbooks.Open OpenFileName
↓
Set oXl = CreateObject("Excel.Application")
oXl.Workbooks.Open OpenFileName
oXl.Visible = True

お礼

コメント有難うございます。
UserForm1.Show vbModeless　で閉じることが出来ました。
お手数をおかけしました。