Hi all,

I've written a macro to automatically save and export a piece of a workbook to PDF. Works fine on PC, but not on MACs. Any ideas on how to get it to work on the MAC OS?



Sub ProducePDF()
 
Dim filename As String


filename = Application.GetSaveAsFilename(InitialFileName:="PACE_Project_Report", _
                                     fileFilter:="PDF Files (*.pdf), *.pdf", _
                                     Title:="Select Path and Filename to save")

If filename <> "False" Then
With ActiveWorkbook
    .Worksheets("Reports").ExportAsFixedFormat Type:=xlTypePDF, _
                                              filename:=filename, _
                                              Quality:=xlQualityStandard, _
                                              IncludeDocProperties:=True, _
                                              IgnorePrintAreas:=False, _
                                              OpenAfterPublish:=True
End With
End If
End Sub