Luk fil uden at blive promtet for at skulle gemme filen?

Hej E.

Jeg vil gerne kunne lukke en fil ned uden at man bliver promtet for at skulle gemme ændringer

Her er min kode:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Dim GemFil As Integer
 
    GemFil = MsgBox("Vil du gemme filen", vbYesNo)
    If GemFil = vbYes Then
        MsgBox "filen er blevet gemt"
    Else
        ThisWorkbook.Saved = True
        ActiveWorkbook.Close savechanges:=False
       
  End If
 
End Sub

Problemet er bare at når jeg bruger beforeclose funktionen bliver min kode kaldt to gange.
Detter er jeg ikke intereseret i og vil derfor gerne have hjælp til at kunne lukke filen ned.