Export As Fixed Format second code not working

[mtagliaferri]

Hi Have a code to create a pdf file and open it afterwards, this works perfect, however I have added a second sheet which I want to save and open this sheet too (Company Property Checklist), but since adding this I have an error

Sub CreatePDF()
    ShLeaversForm.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\Documents\" & Range("D12") & " " & Range("D13") & " " & _
        Format(Range("E19"), "YYYYDDMM") & " " & ShLeaversForm.Name & ".pdf", OpenAfterPublish:=True
    ShCompanyPropertyChecklist.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\Documents\" & Range("D12") & " " & Range("D13") & " " & _
    Format(Range("E19"), "YYYYDDMM") & " " & ShLeaversForm.Name & ".pdf", OpenAfterPublish:=True
End Sub

Any thoughts on hoe to save both sheets separately and open them also?

 

[kanadaaa]

I guess that's because you're trying to make a second file with exactly the same name as the first file.

 

[Fluff]

You are trying to save both pdfs with the same name. should the 2nd code not be using

ShCompanyPropertyChecklist.Name

 

[mtagliaferri]

I starred to that code for so long to figure out where the error was thinking I had referenced to the correct sheet everywhere...Thanks for the fresh eyes there

 

[Fluff]

Glad we could help & thanks for the feedback.