UserForm schließen

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets(" ").Visible = True
Sheets(" ").Select
UserForm2.show 'Meldung wird eingeblendet
Application.ScreenUpdating = False
UserForm2.Hide 'Meldung soll geschlossen werden bleibt aber da
'unload UserForm2 geht auch nicht
ActiveWorkbook.Save
End Sub

Gruß
Matthias