Åben dialogboks (med en kode) Gem Som i bestemt mappe

Jeg ved at man kan åbne en fil MIDT i en kode med følgende kode.
-----------------------------------------------
Workbooks.Open Filename:="C\kassebog-send.xls"
'Lukker først en fil op
'Lukker Dialogboks Gem Som op
   
    Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    ActiveWorkbook.SaveAs Filnavn
   
   
Afbryd:
    ActiveWorkbook.Save
    ActiveWorkbook.Close
---------------------------------------------
Spørgsmålet går ud på at Excel lukker dialogboksen GEM SOM op i (Dokumenter som standard) jeg ved at man kan rette det, men så gemmer den alle filer som standard der JEG VIL GERNE HAVE AT MAN I KODEN HER LUKKER DIALOGBOKSEN GEM SOM OP I MAPPEN
C:\kassebogXP