Dim FileName As String
Dim FolderName As String
Dim Folderstring As String
Dim FilePathName As String
ActiveSheet.PageSetup.Orientation = <strong>ActiveSheet</strong>.PageSetup.Orientation
FolderName = "/Users/buro/Dropbox/D&D/"
FileName = Range("Z2").Formula & ".pdf"
Folderstring = FolderName
FilePathName = Folderstring & FileName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
FilePathName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False