VBA code to export as pdf

[willow1985]

I know I am writing this wrong (am getting an error) but am unsure how to modify it.
I am looking to export a sheet as pdf saving it as the filename specified in AB2 and directory specified in AB1.

Any help would be appreciated. Thank you!

Dim Path As String
Dim filename As String
Path = Workbooks("Weekly Reprocesses WPG").Sheets("Weekly Reprocess").Range("AB1")
filename = Workbooks("Weekly Reprocesses WPG").Sheets("Weekly Reprocess").Range("AB2")
ActiveSheet.SaveAsFixedFormat Type:=xlTypePDF, filename:=Path & filename & ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[mrshl9898]

Try ExportAsFixedFormat:

Dim Path As String
Dim filename As String

Path = Sheets("Weekly Reprocess").Range("AB1")
filename = Sheets("Weekly Reprocess").Range("AB2")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Path & filename & ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[willow1985]

Works perfect! Thank you for the help

 

[NellyGrice]

Works perfect! Thank you for the help

Hello Willow
I am literally on Day 1 of earning VBA and have tried your code.
Do you have any examples of what I should replace AB1 and AB2 with?
Thanks
Neil

 

[willow1985]

Hello Willow
I am literally on Day 1 of earning VBA and have tried your code.
Do you have any examples of what I should replace AB1 and AB2 with?
Thanks
Neil

AB1 is the Saved File Path, example: C:\Desktop\
AB2 is the File Name, example: My PDF

Hope this helps!

 

[kweaver]

mrshl9898: why would I be getting this error on the last line when I tried using this block of code?

I think it's a problem w/the path.

 

[kweaver]

Resolved the issue.