Workbook_BeforeClose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Msg = "Wollen Sie Änderungen speichern?"
Style = vbYesNoCancel + vbQuestion + vbDefaultButton1
Title = "Schliessen"
response = MsgBox(Msg, Style, Title)
If response = vbYes Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("Personal").Select
Range("B5:F31").Select
Selection.ClearContents
Range("I5:I31").Select
Selection.ClearContents
Sheets("startseite").Activate
Application.ScreenUpdating = True
ActiveWorkbook.Save
Call deaktivieren
Application.DisplayAlerts = False
End If
If response = vbNo Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("Personal").Select
Range("B5:F31").Select
Selection.ClearContents
Range("I5:I31").Select
Selection.ClearContents
Sheets("startseite").Activate
Call deaktivieren
Application.DisplayAlerts = False
End If
If response = vbCancel Then
Exit Sub
End If
Application.DisplayAlerts = False
End Sub