I use this:
UserForm.Show vbModal Application.DisplayAlerts = False ThisWorkbook.Save If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit End If