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.
- 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