Filnavn forslag ved brug af skabelon

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim filePath As String
    Dim fileName As String

    ' Hent værdier fra cellerne
    filePath = Worksheets("Sheet1").Range("A5").Value ' Husk at tilpas ark-navnet!
    fileName = Worksheets("Sheet1").Range("A4").Value ' Husk at tilpas ark-navnet!

    ' Sammenkæd filplacering og navn
    Application.EnableEvents = False
    Cancel = True
    ThisWorkbook.SaveAs Filename:=filePath & "\" & fileName
    Application.EnableEvents = True
End Sub

Tak for hurtig tilbagemelding.
Jeg kan nu ikke få det til at virke.

Jeg har lavet et test ark, som jeg har valgt at kalde "master", indsat kode som beskrevet, og ændret ark-navne, gemt det som skabelon med aktive makroer (*.xltm), og når jeg åbner dette, og laver ændringer i det, og gemmer, foreslår det blot filnavn som "master1", og Path har ikke ændret sig.

Jeg spurgte lige vores "ven" Grok (AI)
Den kom med dette
https://grok.com/share/bGVnYWN5_2e579d0d-17f8-4f18-8918-96725ef4085f

Mange tak for hjælpen.

Mit testrpogram kører perfekt, nu skal jeg bare have det bygget ind i min skabelon.

Hej.

Jeg var lige hurtig nok til at række armene over hovedet her.

Jeg får en fejl når jeg kører denne makro, og jeg mener at have fundet ud af at det er fordi jeg prøver at gemme en projektmappe (*.xlxs), og det udløser en fejl da mappen indeholder makroer.
Jeg kan dog ikke "tvinge" filforslaget til at være en mappe med aktive makro (*.xlsm).
Jeg har både prøve at ændre det i VBA koden, og direkte i celle A4, men koden bliver ved ed at foreslå at gemme som *.xlxs.

Er der et eller andet jeg overser?

Her er koden som kører fint, hvis jeg manuelt ændrer filtypen til *.xlsm, går det glat igennem.

Sub SaveAsWithDynamicNameAndPath()
    Dim wb As Workbook
    Dim FileName As String
    Dim FilePath As String
    Dim FullPath As String
   
    ' Sæt reference til den aktive workbook
    Set wb = ActiveWorkbook
   
    ' Hent værdier fra cellerne
    FileName = ThisWorkbook.Sheets("Ark1").Range("A4").Value ' 1458-God
    FilePath = ThisWorkbook.Sheets("Ark1").Range("A5").Value ' C:\Mappe1\Køge-God
   
    ' Sørg for at tilføje filtypenavn (.xlsx)            Har jeg herunder ændret til xlsm

    FullPath = FilePath & "\" & FileName & ".xlsm"
   
    ' Tjek om mappen eksisterer, hvis ikke, opret den
    If Dir(FilePath, vbDirectory) = "" Then
        MkDir FilePath
    End If
   
    ' Åbn "Gem som" dialogboksen med det foreslåede navn og sti
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = FullPath
        .Show
        If .SelectedItems.Count > 0 Then
            wb.SaveAs .SelectedItems(1)
        End If
    End With
End Sub