Gemme projektmappe

pdf-delen kan du finde kode til her: http://www.mrexcel.com/forum/excel-questions/405000-2007-excel-saveas-pdf-visual-basic-applications.html

Tak, jeg kan dog ikke få det til at virke. Har indsat stien for hvor der skal gemmes og tilføjet at den også skal tage fakturanr med i B3 i filnavnet. Her er koden:
HAR KUN BRUG FOR AT GEMME ARK 2 OG 3

Sub GemPDF()
Dim wsh As Worksheet, vWshs, vWshName

vWshs = Array("Sheet2", "Sheet3")
With ActiveWorkbook
    For Each vWshName In vWshs
        .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\..\..\..\..\..\PDF" & vWshName & range("B3"), Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next vWshName
End With
End Sub

Er der noget jeg har misset?

Jeg fandt selv fejlen :-) havde ikke ændret ark2 og 3 til de korrekte navne. Beklager ulejligheden. Koden virker som den skal. Send et svar jakobdo så får du point for pdf-delen. Tak for linket

Hej Jakobdo
Vil du sende et svar så du kan få point og jeg kan lukke spørgsmålet. Det ser ikke ud til at der er bud på den anden del af mit spørgsmål.
Tak for hjælpen

Jeg lukker dette spørgsmål. Jakobdo har ikke sendt svar. Så må han kontakte mig hvis han vil have dem :-)