run-time error '76' 求助

jameschou1211

大家好，我的VBA语句MkDir运行时出现run-time error，请教大神指点如何排除。
我用的是Mac OS Excel, 谢谢。
以下是我的 VBA,请各位大神看看有没有什么建议。

Sub Folder_TransferTo_Tableau()

    Dim FileName$
    FileName = Application.ActiveWorkbook.Path

    'create folder
    If Dir(FileName & "/" & "Tableau", vbDirectory) = "" Then
        Debug.Print "Folder not exist"    'print folder check result
        Debug.Print FileName               'print FileName path
        MkDir (FileName & "/" & "Tableau")       'create folder
    End If

后面省略



End Sub