Hello,

I have file folder on my desktop:

C:\Users\William\OneDrive\Desktop

I entered this in the Admin sheet in cell L7

How can the code save to this file?

Thank you for your help


Sub Project_CretePDF()
    Project_Generate 'Generate the complete project for printing
    FileName = ThisWorkbook.Path & "\" & Projects.Range("F2").Value & "_Project_" & Projects.Range("N2").Value & ".pdf"
    If Dir(FileName, vbDirectory) <> "" Then Kill (FileName) 'Delete file if exists
    Projects.ExportAsFixedFormat xlTypePDF, FileName, , , False, , , True
End Sub