Jeg har fundet denne men den gemmer godt med det rigtige filnavn i forhold til celle navnet,

ups det glemte jeg.

'--------------'
' Opretter PDF '
'--------------'
    Dim ArkNavn, DataSti, Filnavn As String
    
    ArkNavn = Ark1.Name
    DataSti = Sheets("setup").Range("b5").Value  '"C:\koretid\" 'Der hvor filen skal gemmes, husk at afslutte med \
    'Filnavn = Sheets(ArkNavn).Range("v2").Value
    Filnavn = "Kortmaskine" & " - " & Sheets("Setup").Range("B6") & ".PDF"


'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
    If Dir(DataSti, vbDirectory) = "" Then
        MkDir DataSti
    End If

'Tjekker om filen findes
    If Len(Dir(DataSti & "\" & Filnavn)) > xlGreater Then
        If MsgBox("Files findes Allrede! vil du overskrive den?", vbYesNo) = vbNo Then Exit Sub
    End If

'Gemmer det aktive ark som .pdf
    Sheets(ArkNavn).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=DataSti & "\" & Filnavn, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
       
    MsgBox "Filen er gemt som..." _
    & vbNewLine & vbNewLine & DataSti & "\" & Filnavn, vbInformation
End Sub

Det her er lidt flovt.

Monsi skrev: Jeg har fundet koden, det var i filen som var genereret ud fra denne jeg kiggede i. Den originale fil indeholdt koden  Private Sub CommandButton1_Click() Dim path As String path = "c:\Rapporter\" Filename1 = Range("B3").Text Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=path & Filename1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True ActiveWorkbook.Close End Sub

Hej Bjarne.

Det vil den ikke når jeg forsøger at Compile koden brokker den sig med denne meddelse "Syntax Error"

Er der ikke en venlig sjæl som kan og gider et hjælpe med denne for mig store udfordring.