Indsæt filnavn som står i A1 i feltet filnavn

Med følgende kode kan jeg gemme aktive fil under nyt navn hvis filen fx hedder "2006.FAG" står der "2006.FAG" i FILNAVN. Jeg vil gerne
det navn ind der står A1

ChDir "D:\Kunder2\Finans\Nyt_aar"
        'Flt = "Excel mappe(*.xls),*.xls,"
        'Flt = Flt & "Print-filer (*.prn),*.prn,"
        'Flt = Flt & "Tekst-filer(*.txt),*.txt"
        Flt = Flt & "Excel mappe(*.FAG),*.FAG"
        Titel = "Gem nyt FinansProgram Som!"
        Filnavn = Application.GetSaveAsFilename(, Flt, 1, Titel)
        If Filnavn = False Then GoTo Afbryd
        On Error GoTo Afbryd
        ActiveWorkbook.SaveAs Filnavn