Untested :
Sub CreateBatchFile() Dim filePath As String Dim fileNumber As Integer Dim batchCommands As String filePath = "C:\PathToYourFolder\CombinePDFs.bat" fileNumber = FreeFile batchCommands = "cd /d C:\MIHAI\DOC\ASIG\DOSARE" & vbCrLf & _ "pdftk.exe *.pdf cat output combined.pdf" & vbCrLf & "exit" Open filePath For Output As #fileNumber Print #fileNumber, batchCommands Close #fileNumber Shell filePath, vbNormalFocus End Sub