VBA调用Python脚本适配其他电脑路径时触发Error 5的问题求助

我自己写了个VBA宏用来运行Python脚本，原本在我自己电脑上是能正常工作的，但当我修改caminhoScript变量的路径写法，想让它能在其他电脑上也跑起来时，就直接报错了——弹出的是Error 5，问题出在这段代码里：

caminhoPython = "C:\Anaconda3\python.exe" ' Substitua pelo caminho correto do Python

' Caminho do script Python
caminhoScript = "C:\Users\" & UserName & "\Endress+Hauser\Marketing & Sales - E+H FL BR - Forecast Supply Chain - beta\Python\python.py" ' Substitua pelo caminho correto do seu script
Debug.Print caminhoScript
' Comando completo para rodar o script Python diretamente
comando = Chr(34) & caminhoPython & Chr(34) & " " & Chr(34) & caminhoScript & Chr(34)

' Executando o script Python
shell comando, vbNormalFocus

我已经用Debug.Print输出过生成的caminhoScript路径，看起来路径是正确的，但还是触发了这个错误。下面是我的完整VBA代码，麻烦帮忙看看哪里出问题了，我想解决这个路径适配后的报错问题：

Sub RodarScriptPythonSemShell()
    Dim caminhoPython As String
    Dim caminhoScript As String
    Dim comando As String
    
    Dim objNetworkUser As Object
    Set objNetworkUser = CreateObject("WScript.Network")
    UserName = objNetworkUser.UserName
    
    
    ' Habilita o recálculo automático (se estiver no modo manual)
    Application.Calculation = xlCalculationManual
    ' Desabilita os alertas para evitar mensagens de cálculo incompleto
    Application.DisplayAlerts = False
    
    ' Garantir que a planilha seja recalculada antes de rodar o script
    Application.Calculate
    
    ' Caminho do executável Python
    caminhoPython = "C:\Anaconda3\python.exe" ' Substitua pelo caminho correto do Python
    
    ' Caminho do script Python
    caminhoScript = "C:\Users\" & UserName & "\Endress+Hauser\Marketing & Sales - E+H FL BR - Forecast Supply Chain - beta\Python\python.py" ' Substitua pelo caminho correto do seu script
    Debug.Print caminhoScript
    ' Comando completo para rodar o script Python diretamente
    comando = Chr(34) & caminhoPython & Chr(34) & " " & Chr(34) & caminhoScript & Chr(34)
    
    ' Executando o script Python
    shell comando, vbNormalFocus
    
    ' Reabilita os alertas após o script rodar (opcional)
    Application.DisplayAlerts = True
    
    Application.Calculation = xlCalculationAutomatic
End Sub

我现在的期望就是解决这个路径适配后触发的Error 5问题，让这个宏能在其他电脑上也正常调用Python脚本。

备注：内容来源于stack exchange，提问作者Mateus Lima