Excel-Makro speichert nicht (sehr merkwürdig)

Oliver

Dim dGS$
dGS = Worksheets(2).Range("d2")

' Soll eigentlich die Datei mit richtigem Dateinamen speichert. Datei wird aber
' NICHT gespeichert.

Dim Speichern
Dim dateiname
dateiname = ("Abgleich_" & dGS & "_" & dName & ".xls")
Speichern = Application.GetSaveAsFilename(initialfilename:=dateiname, _
fileFilter:=("Excel-Arbeitsmappe(*.xls),*.xls"), _
Title:=("Die Datei bitte unter einem anderen Dateinamen abspeichern."))
If Speichern = False Then Exit Sub