Permissions Issue in Running a Macro

[skf786]

Hi,

im using this macro to open the print as PDF window allowing user to save it as a PDF.

some of the users are getting "You do not have license for that function" message. Please help in fixing this.

thanks

KF

Sub CreatePDF()
    Dim fName As String, fPath As String
    fPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
MsgBox fPath
    fName = Sheets("Cover Page").Range("A18").Value & " " & Format(Date, "dd-mm-yyyy")
    fPath = fPath & "\" & fName & ".pdf"
    ThisWorkbook.Sheets(Array("Cover Page", "Main Menu", "User Guide", "Market", "ITFA", "People", "Opex", "Marketing", "FundsInv", "BS", "PL", "CF", "Dashboard", "Sensitivity")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    ThisWorkbook.Sheets("Cover Page").Select
End Sub

 

[skf786]

Also, please note that these users are using mac machines. while the macro works fine on windows.

 

[GWteB]

On MacOS the Windows Script Host is not present, so CreateObject("WScript.Shell)" fails irrevocably.