Print Every 2 Pages to a New PDF

[Twollaston]

I have a few workbooks with almost 50 pages each, and I want to print every 2 pages to a PDF, so basically the end goal would be 25 pdfs made up of 2 worksheets each

For Example:
PDF1 Sheet1 and Sheet2 (sheet1 would be PDF1 page 1 and sheet2 would be PDF1 page 2)
PDF2 Sheet3 and Sheet4
PDF3 Sheet5 and Sheet6

And I was Hoping to Name the page based on Cells L5 and L3 like this =L5&" - "&L3 from the first page of each excel sheet
so PDF1 Name would be Worksheets(1) cells L5&" - "&L3(these cells are are filled with a name, and the type of report so it would look something like John Doe - Sales Report as the pdf name)

I was trying to do this with a loop to speed up time. Anybody know how to do this?
The saving path is not important, it can just go to my documents

 

[DanteAmor]

Try this

Sub Print_Every_2_Pages()
    Dim i As Long, wFile As String
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count Step 2
        wFile = Sheets(i).Range("L5").Value & " - " & Sheets(i).Range("L3").Value
        Sheets(Array(Sheets(i).Name, Sheets(i + 1).Name)).Copy
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & wFile & ".pdf"
        ActiveWorkbook.Close False
    Next
    msgbos "End"
End Sub

 

[Twollaston]

Try this

Perfect! Thanks a lot for making that macro and sharing it with me. You are the man!

I appreciate your help

 

[DanteAmor]

Perfect! Thanks a lot for making that macro and sharing it with me. You are the man!

I appreciate your help

I'm glad to help you. Thanks for the feedback.