Soru Userform application.visible olayında excel kapanıp duruyor

[omerap06]

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
End Sub

Merhaba bi sıkıntım var userform ile ilgili. ben userformu Exe dosyası yaptım(exe dosyası derken yani userform gözüksün excel gözükmesin anlamında). Sorunum şu ; bazen açılıyor ve sonra yaptığım userformdaki ARA çubuğuna bir numara yazıyorum ara diyorum 1-2 saniye sonra komple kapanıyor ama exceli açıp içindeki "userformu aç" butonundan userformu açtığımda herhangi bir sıkıntı olmadan çalışıyor(yani excel açık şekilde yaptığımda) yardımlarınız için şimdiden çok teşekkür ederim yukarıdaki kodlardamı sıkıntı var anlamadım. userformum bu linkde.