VBA-Code zur Beendigung des Excel-Programms

Private Sub CommandButton4_Click()
Workbooks("hydr_berechnungen.xls").Close SaveChanges:=False
Application.Quit
End Sub

Frage:
Kann ich diese Funktion auch programmieren OHNE den Namen des Programms angeben zu müssen.
Denn sobald die Datei unter einem anderen Namen gespeichert wird, funktioniert der Code nicht mehr.
Grüße
Georg