Save Location

The following is part of code that I'm using to turn an Excel worksheet into a PDF and then email it. Right now, it saves the PDF to my desktop. I can get it to save it to my C drive by simply replacing "Desktop" with "C:". However, I am unable to get it to save to a network drive such as "I:\Archive". When I use the I drive as a path, the rest of the macro works fine but the PDF doesn't save anywhere.

Any idea what I'm doing wrong?

Thanks,
Steve

 ' Define PDF filename
  Title = "" & Range("X2").Value
  PdfFile = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Title & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With

Originally Posted by Arkadi

pdffile just needs to be a string I believe... untested but try:

PdfFile = "C:\" & Title & ".pdf"

tested now, should work fine.

Thanks - that did the trick. I appreciate your help!