Dim ArkNavn, DataSti, Filnavn As String

ArkNavn = Ark1.Name
DataSti = Sheets("setup").Range("b5").Value  'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = Sheets(ArkNavn).Range("v2").Value


'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
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 " & DataSti & "\" & Filnavn, vbInformation