I have the below code created as I want to save contractor invoices that come to me as excle and save them as PDF.
I would like to have the value 111 below be the value of cell F5 and the value D94786 be the value of cell B19.
I have googled many things but kind find the exact code I need to make the change to the current Macro I have.
Thank you.
Mark
Code
Sub Lance_Invoice()
'
' Lance_Invoice Macro
' To save Lances invoices in his folder as PDF
'
' Keyboard Shortcut: Ctrl+l
'
ChDir _
"C:\Users\SamS\OneDrive - CompanyABC\Sam s\Work Links\4Contractor Invoices & WO\LHW Consulting (Lance)"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Sams\OneDrive - CompanyABC\Sam S\Work Links\4Contractor Invoices & WO\LHW Consulting (Lance)\LHW Consulting INV111 for WO D94786.pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Display More