Macro Print to PDF save to Folder

[Daaan]

Hi All

I have the following macro that I use to automatically print numerous pages to pdf and save the file as a certain name. This saves it to My Documents.

That works great... however, does anyone know if there is a way where you can save it to a specific drive/folder eg H:\Sensitive Data\File

Sub Print_Non_Spec_PDF()
For r = 4 To 1000
Sheets("13.Special Case Calc").Range("G4").Value = Cells(r, 1).Value
Sheets("13.Special Case Calc").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets("13.Special Case Calc").Range("G4").Value & Sheets("13.Special Case Calc").Range("G5").Value & ".pdf"
Next r
End Sub


Thanks
Dan