Kan niet opslaan als pdf met Macro

[Erc]

Hallo iedereen

Ik heb een bestand met meerdere sheets en ik wil a.d.h.v. een macro 2 werkbladen (leveringsbon en factuur) opslaan als pdf. Cel "C29" uit het werkblad fatuur, moet telkens de bestandsnaam worden. Als ik werk met 1 sheet, werken de macro's zonder problemen. Bij meerdere werkbladen lukt het niet.

Wat doe ik fout? Kan er iemand helpen a.u.b.

Sub test()
'
' test Macro
'

'
    Sheets(Array("Leveringsbon", "Factuur")).Select
    Sheets("Leveringsbon").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\ercan\testfolder\ " & Sheets("Factuur") & Range("C29")_
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    
End Sub

Alvast bedankt voor jullie hulp!

Groeten
Ercan

 

[JEC.]

Laat die activate regel eens weg

 

[edmoor]

Doe het eens zo:

Sub Test()
    Sheets(Array("Leveringsbon", "Factuur")).Select
    PDF = "C:\Users\ercan\testfolder\" & Sheets("Factuur").Range("C29")
    ActiveSheet.ExportAsFixedFormat 0, PDF, , , , , , True
End Sub

 

[Erc]

Laat die activate regel eens weg

Heb ik gedaan, en ik bleef een foutmelding krijgen.

 

[Erc]

Doe het eens zo:

Sub Test()
    Sheets(Array("Leveringsbon", "Factuur")).Select
    PDF = "C:\Users\ercan\testfolder\" & Sheets("Factuur").Range("C29")
    ActiveSheet.ExportAsFixedFormat 0, PDF, , , , , , True
End Sub

Het is gelukt, bedankt!