VB help please - Save as pdf in specific folder

[JV0710]

Good Day All

Please can you help me with a VB Script

I have an excel file that I am refreshing on a weekly basis. The worksheet is protected. I would like a macro to save the Active worksheet as a pdf using the text in Cell A1 as the name of the file. The file must be saved on the users desktop in a folder named: “ Sup info “.
If the folder does not exist on the user’s desktop then create it and name it “ Sup Info ”.
If a file with the same name exists in the folder, then replace it

Thanks in advance for your help

 

[DanteAmor]

Try this:

Sub savePDF()
  Dim sPath As String, sName As String
  
  sPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Sup info"
  If Dir(sPath, vbDirectory) = "" Then MkDir sPath
  sName = sPath & "\" & Range("A1").Text & ".pdf"
  
  ActiveSheet.ExportAsFixedFormat xlTypePDF, sName, xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[JV0710]

Thank you Sir, Appreciate it . . . That has worked perfectly for me