Speichern und schließen

Sub SaveExit()
ActiveWorkbook.Save
Excel.Application.Quit
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
End Sub

Allerdings kommt es (selten) vor, dass trotzdem anschließend abgefragt wird, ob die Änderungen gespeichert werden sollen. Das soll ja so nicht sein. Nun mein Anliegen: Gibt es eine Möglichkeit an dem Code noch Veränderungen vorzunehmen, um ihn zuverlässiger zu machen?
Bei meinen Internet Recherchen bin ich noch auf folgenden Code gestoßen:

Sub DateiSchließen_mit_speichern()
Workbooks("Dateiname.xls").Close SaveChanges:=True
End Sub

Den kann ich nur leider nicht verwenden, da der Dateiname von User zu User variiert.
Bin für Eure Hilfe sehr dankbar!
Gruß Henner