Flere ark til flere filer

Jeg har ondt af at du ikke har fået et svar :-)

Jeg har noget kode som kan hjælpe dig på vej:

Sub Print_til_pdf()
    stitilfil = "\\vcn.ds.volvo.net\cli-sd\sd0598\030103\Rapportering\KPI\"

    For Each c In Range("liste")
        Range("B3").Select
        ActiveCell.FormulaR1C1 = c.Value
       
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        stitilfil & Cells(1, 2) & " " & c.Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Next
End Sub

Min kode skifter en celleværdi og printer derefter arket til pdf. Jeg tænker at opbygningen kan bruges.

Din skal dog hedde noget med for each sheet in active workbook, men jeg ved ikke lige hvordan man siger "gem som", her må Google være din ven - eller måske en af de andre eksperter.

Din messagebox skal give to værdier således at dit filename = variabel1 & variabel2 & sheetname.

Pøj pøj :-)

Beklager min sene respons.

Men tusinde tak for dit svar. Kan ikke teste det førend i morgen men skal nok vende tilbage, når jeg har haft lejlighed til at teste.

Et svar ☺