Email Single Sheet as Pdf

[lizemi]

I have a worksheet containing 43 sheets.
This is my monthly Invoices to clients
I need to email my invoices in Pdf
So it has to email that single sheet in pdf to the email on that sheet not the whole worksheet
Email address in cell b6

 

[Michael M]

Maybe

Sub Send_Email()
    Dim wPath As String, wFile As String
    
    wPath = ThisWorkbook.Path
    wFile = "Filepdf.pdf"
    activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=wPath & wFile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False


    Set dam = CreateObject("Outlook.Application").CreateItem(0)
    '
    dam.To = "email@gmail.com"
    dam.Subject = "email subject"
    dam.Body = "email body"
    dam.Attachments.Add wPath & wFile
    dam.Send
    MsgBox "Email sent"


End Sub

 

[lizemi]

Thanks how so i tell it that the email is in cell b6

 

[lizemi]

I was able to tell it that the email address is in cell b6 so that works
My problem is that if i select all sheets and run the macro it sends all the invoices to everyone instead of only their invoice. So I will have to go to each sheet and run the macro resulting in me having to run the macro 40 times

 

[Michael M]

Are there sheets to be excluded from the list of emails ?
AND
What is the range of cells that make up the invoice ?