Save all Sheets to the right of active sheet as PDF

[thedoccontroller]

Okay so here goes...

Sheet1 ("Instructions") has the root file folder path in cell A52. Cell H10 (actually a range H10:J11 merged) has a string that is part of the name of a subfolder in that root. So I need to search the root (A52) for the folder containing the string (H10) and then save all sheets to the right of (excluding) the "Instructions" sheet, as a PDF. Ive dug quite a bit and can't piece it together. Thanks in advance.

 

[John_w]

Insert these lines in the code:

    Dim XLSMfile As String

                XLSMfile = saveInFolder & "PE Insp.xlsm"

                .SaveCopyAs XLSMfile

 

[thedoccontroller]

Insert these lines in the code:

    Dim XLSMfile As String

                XLSMfile = saveInFolder & "PE Insp.xlsm"

                .SaveCopyAs XLSMfile

Beautiful! Took me a minute to figure out what section I was replacing and how much, but I got it on the first try. Thank you soooo much.