EXCEL BEENDEN!!!

GUTEN MORGEN ALLE
habe kleines problem mit beenden von excel!!
excel soll auf knopfdruck alles wieder sichtbar machen,
die arbeitsmappe speichern und dann weg ,
das ich excel nicht mehr sehe!
ABER EXCEL MACHT MIR WAS ES WILL 
wer kann mir helfen??

'userform und excel beenden
   Private Sub ende_Click()
     ThisWorkbook.Close savechanges:=True
       Application.DisplayAlerts = True
         Application.Visible = True
   Application.Quit
 End Sub

DANKE
IVAN