Good day,
I currently have the below VBA code, which runs exactly as I need it to. It goes through a dropdown list and physically prints off the each result.
What I want to do is update it to instead of printing to a printer, I want it to print each result to a PDF file, save it to the Desktop and name each individual file based off of cell B2.
Any assistance would be greatly appreciated!
I currently have the below VBA code, which runs exactly as I need it to. It goes through a dropdown list and physically prints off the each result.
VBA Code:
Sub Macro1()
Dim r As Range
For Each r In Range(Range("J2").Validation.Formula1)
Range("J2").Value = r.Value
Sheets("Sales-Referrals").PrintOut
Next
End Sub
What I want to do is update it to instead of printing to a printer, I want it to print each result to a PDF file, save it to the Desktop and name each individual file based off of cell B2.
Any assistance would be greatly appreciated!