Speichern unter mit Zellinhalt als Dateiname

Sub SpeichernUnterDialogAufrufen()
Application.Dialogs(xlDialogSaveAs).Show
fileSaveName = Application.GetSaveAsFilename(Worksheets("Tabelle1").Range("A1"), fileFilter: _
_
="Text Files (*.xls), *.xls")
If fileSaveName  False Then
ActiveWorkbook.SaveAs fileSaveName
End If
End Sub

Funktioniert aber nicht richtig, der neue Name aus A1 wird nur eingesetzt, wenn man beim 1. Fenster auf Abbrechen klickt. Was ist falsch? Kann mir bitte jemand helfen. Danke im Voraus
Kurti