pdftk.exe kombiniert PDFs nicht

Hallo zusammen,

mit dem folgenden Script kombiniere ich pdf-Dateien zu einer pdf-Datei. Das funktioniert auf meinem privaten PC super aber leider nicht auf meinem Firmen-PC.
Beide Rechner haben Windows 10, 64bit und Office 365.

Das Script läuft zwar ohne Fehlermeldung durch, aber es passiert nichts. Woran könnte das liegen?

Vielen Dank und Grüße, Mike

Option Explicit

Sub mergePDF()
   Dim sPath      As String
   Dim sPdfTk     As String
   Dim sQuellPDFs As String
   Dim sZielPDF   As String
   
   sPath = ActiveWorkbook.Path & "\"
   sPdfTk = sPath & "pdftk.exe"
   sQuellPDFs = sPath & "a.pdf " & sPath & "b.pdf"
   sZielPDF = sPath & "combined.pdf"
   
   Shell sPdfTk & " " & sQuellPDFs & " cat output " & sZielPDF
End Sub