Odpalenie skryptu PS
Dim str As String
    str = ActiveWorkbook.Path & "\Pracownicy_CLGL_By_Name.ps1"
    strCommand = "Powershell -File " & str
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)
Odpalenie skryptu PS
Dim str As String
    str = ActiveWorkbook.Path & "\Pracownicy_CLGL_By_Name.ps1"
    strCommand = "Powershell -File " & str
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)