Gemme som skabelon

Brug Application.TemplatesPath
Det giver dig stien til templates. Husk også at bruge Application.PathSeparator til at tilføje "\" før filnavnet.

Nu er jeg ikke helt så stærk i det her programmering.
Jeg kan godt se at application.templatespath kan vise hvor skabelonerne gemmes, men hvordan får jeg mere nøjagtig gemt filen der?
Jeg har prøvet følgende kode, men det virker ikke.

Application.TemplatesPath
    filtype = "skabelon(*.xlt),*.xlt,"
    filnavn = Application.GetSaveAsFilename("Tilbud1", filtype, 1)
    ActiveWorkbook.SaveAs filnavn

Jeg har prøvet mig lidt frem og det ser ud til at denne kode fungerer. Men er det nu også rigtigt og den bedste løsning?

Sub gem()
ChDir Application.TemplatesPath

    filtype = "skabelon(*.xlt),*.xlt,"
    titel = "Gem fil som skabelon!"
    filnavn = Application.GetSaveAsFilename("Tilbud", filtype, 1, titel)
    ActiveWorkbook.SaveAs filnavn
   
End Sub

Jeg synes, at det ser helt perfekt ud.

Tak for hjælpen Hytoft.