VBA to save multiple sheets as 1 PDF with cell value as file name

[hsmith15]

I need to create 1 PDF of 5 sheets (Sheet2 - Sheet7)

File name needs to be value of cell "O1" in "Sheet2"

File Path: "C:\Users\SP3\Dropbox (1 Stone Solutions)\1 Stone Solutions Team Folder\ Corporate\Hayden Smith\Sales Reporting\Weekly Sales Reports"

I will be running the macro out of Sheet2

Please HELP!

 

[yky]

Sub save_sheets()

const myPaht = "C:\Users\SP3\Dropbox (1 Stone Solutions)\1 Stone Solutions Team Folder\  Corporate\Hayden Smith\Sales Reporting\Weekly Sales Reports\"

ThisWorkbook.Sheets(Array(ThisWorkbook.Sheets(2).Name, ThisWorkbook.Sheets(3).Name, _
ThisWorkbook.Sheets(4).Name, ThisWorkbook.Sheets(5).Name, ThisWorkbook.Sheets(6).Name, ThisWorkbook.Sheets(7).Name)).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=myPath & Sheets(2).Range("O1") & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True




End Sub

 

[hsmith15]

Thank you, that does exactly what I need it to.

What would the code be to then send an email to someone with the newly saved pdf file attached with a body of text in the email as well?

 

[yky]

For email, I recommend the following site:

https://www.rondebruin.nl/win/s1/outlook/mail.htm