raffaele1953, 05/06/2018 13.08:Devo precisare una cosa... Quando ho visto i Tuoi files d'esempio, ho notato che esisteva un numero dopo "decreti_dirett" Pertanto il VBA era fatto a misura per quei files, mantenendo "quei numeri" Adesso dici che sono rimasti solo alcuni file denominati solo con COGNOME.pdf (intendo cognomepuntopdf) Da qui si deduce che non possono esistere doppioni. Metti la spunta davanti a queste righe 'Nome2 = "*.pdf" 'Nome2 = "MIUR.AOODR.Reg_reg_dei_decreti_dirett.1348.*" 6 righe sotto modifica la riga, sostituendo il _ con un punto Nome2 = Mid(Nome1, 1, InStr(Nome1, ".") - 1) Dovrebbe funzionare EDIT (Rivedendo il tutto, ho sbagliato con la riga9 compreso il numero Nome2 = "MIUR.AOODR.Reg_reg_dei_decreti_dirett.1348.*" Doveva essere differente, mà a te adesso non serve più.) EDIT