Fehler beim Schließen von Excel2007

Private Sub Workbook_activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_deactivate()
Application.DisplayFullScreen = False
End Sub

Excel wird über einen Schießen-Button beendet!
Wenn ich diesen drücke dann schließt zwar Excel aber nach einem neuen Aufruf der Datei erscheint alles im Vollbildmodus.
Button wie folgt in VBA hinterlegt:

Private Sub CommandButton2_Click()
ActiveWorkbook.Close
End Sub

Wenn ich Excel über rechtes obere Kreuz schließe ist alles normal. Wie muss ich den Schließen-Button konfigurieren?
Vielen Dank.
Arnold