XWbk.ExportAsFixedFormat Type:=xlTypePDF, FileName:=xRPath & xbwname & '. Xbwname = Replace(xStrFile1, '.xlsm', '_pdf') Is PDFsam Basic free for commercial use Yes, PDFsam Basic is free for. Xbwname = Replace(xStrFile1, '.xlsx', '_pdf') PDFsam Basic is a free and multi-platform software designed to split, merge, extract pages, mix and rotate PDF files. Xbwname = Replace(xStrFile1, '.XLS', '_pdf') Xbwname = Replace(xStrFile1, '.xls', '_pdf') Set xWbk = Workbooks.Open(FileName:=StrPath & xStrFile1) Title = 'Please select a destination folder to save the converted files:' Set xRFD = Application.FileDialog(msoFileDialogFolderPicker) Title = 'Please select the folder contains the Excel files you want to convert:' Set xSFD = Application.FileDialog(msoFileDialogFolderPicker) I found your script, but I don't know much of this, can you help me add your cript so it merges all the pdf in the folder? I have hundreds of folder with multiple excel files and I have to make pdf files and in the end they have to be joined by order, so each folder has to have a final PDF file.

Pdfsam security issues