Mac 2011 Excel to PDF Export via Macro

Hi,

Try the below code

Sub SavePDFMacro()
    Dim folderPath As String
    Dim RootFolder As String

    On Error Resume Next
    RootFolder = MacScript("return (path to desktop folder) as String")
    folderPath = MacScript("(choose folder with prompt ""Select the folder""" & _
    "default location alias """ & RootFolder & """) as string")
    On Error GoTo 0

    If folderPath <> "" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            folderPath & ":" & Range("A1").Value, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    End If
End Sub