få excel til at gemme med et bestemt navn

Public Sub GemSom()
    Dim fileTosave, Flt, Titel, Filnavn
    fileTosave = Worksheets("Ark2").Range("A1")
    Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn <> False Then
        ActiveWorkbook.SaveAs Filnavn
    End If
End Sub

jep, det virker perfekt
Lige her på falderebet, kan man så lige rette makroen til så den altid forsøger at gemme i
d:\dokument2\

Mange tak for hjælpe og kan jeg få dig til at smide et svar?

det er ikke lige til at skifte sti, kan du ikke sætte excel til at bruge den som standardmappe, det er nemmere.

Jeg har prøvet her, men kan ikke få det til at virke.

Public Sub GemSom()
    Dim fileTosave, Flt, Titel, Filnavn, GammelDir As String
    GammelDir = ThisWorkbook.Path
      fileTosave = Worksheets("Ark2").Range("A1")
    Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    ChDir ("d:\dokument2")
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn <> False Then
        ActiveWorkbook.SaveAs Filnavn
    End If
    ChDir (GammelDir)
End Sub

Mange tak for hælpen
Beklager den sene accept

Måek skulle man prøve at arbejde lidt mindre......
så kunne man få lidt mere tid til ens hobby :-)