ich habe ein Problem mit der Abfrage, ob eine Datei gespeichert werden soll
Folgender Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

abfr = MsgBox("Sollen die Daten aus dem Formular vor dem Schließen gelöscht werden?", vbExclamation + vbYesNo, " Daten löschen")
If abfr = vbNo Then
Exit Sub
End If

With Sheets("Formular").Range("A10:A14")
.ClearContents
End With

With Sheets("Formular").Range("B25:E44")
.ClearContents
End With
Application.DisplayAlerts = False
Application.DisplayAlerts = True

Ich möchte die Datei schließen, ohne dass nachgefragt wird, ob
die Datei gespeichert werden soll.

Natürlich macht der befehl:DisplayAlerts direkt hintereinander so keinen Sinn.

Wie kann ich es machen, dass die Nachfrage nicht erscheint?

Vielen Dank im voraus für die Hilfe,

Gruß

Michael