Macro to Save Sheet as a PDF

[howard]

I have text in F4 on sheet "Sales"


I would like to save the data on Sheet "Sales" as as PDF using the text in F4 as the file name


I have tried to write code to do this but get an error "Document cannot be saved ...


It would be appreciated if someonne could kindly amend my code

[Sub SaveSalesToPDF()
Sheets("Sales").Select


Application.ScreenUpdating = False
' Save a copy of the active sheet as PDF to the specified folder
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"c:\Sales Reports\" & "" & ActiveSheet.Range("F4").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Application.ScreenUpdating = True
End Sub [/code]

 

[hrayani]

Hi,

Try the below code

Sub pdf ()
saveLocation = "C:\Sales Reports\" & Range("F4").value
Activesheet.Exportasfixedformat type:=xltypepdf, filename:=savelocation
End Sub

 

[howard]

saveLocation = "C:\Sales Reports\" & Range("F4").value Activesheet.Exportasfixedformat type:=xltypepdf, filename:=savelocation End Sub

 

[howard]

Thanks for the help. My apologies -I found what was causing the issue. I had a date in the text in F4 containing / e.g 28/04/2022

Once I removed the /'s , the macro saved the sheet

 

[hrayani]

You're welcome
Glad you sorted it out
Regards,