I am trying to change location of the pdfs to different folder location instead of desktop. I do have hidden tabs.
Any help is much appreciated.
- Sub Save_As_PDF_To_Desktop_4()
- Dim sh As Worksheet
- For Each sh In ActiveWorkbook.Worksheets
- If sh.Name <> "Instructions" And sh.Visible = True Then sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
- CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & sh.Name & ".pdf" _
- , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
- :=False, OpenAfterPublish:=False
- Next sh
- End Sub