Save sheet as PDF to a set folder and then email it in outlook using set credentials

[D3FCON]

Hello.

I have tried and edited a few VBA's without luck on what i need to accomplish.

I have a sheet i want to save as a PDF to a pre set folder and then attach it to a new email with certain email address (To, CC1, CC2)

I want to file to save as the name/contents of Cell A3 and also set that cell as the subject for the email.

The sheet should all fit on to the one page on the PDF in landscape mode.

If it matters the sheet name is "Pay Run Sheet"

 

[Logit]

Option Explicit

Sub MailActiveSheet()
  Dim wPathFile As String

  wPathFile = ThisWorkbook.Path & Range("A3").Value & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & Range("A3").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

  With CreateObject("Outlook.Application").CreateItem(0)
    .To = "To Address Here"
    .CC = "email1@yahoo.com; email2@gmail.com; email3@tmail.com"
    .Subject = ActiveSheet.Range("A3").Value
    .Body = ""
    .Attachments.Add wPathFile
    .Display
  End With
End Sub