Excel a Correo Adjuntar Todos los Archivos que Contengan la Palabra

Estoy haciendo una macro que manda un reporte peridico de varios archivos de un repositorio, estos contienen varias nomenclaturas, tienen en común el nombre del reporte

Busco una manera de adjuntar todos los archivos que contengan dentro de su nombre esa palabra "Productividad" y la extensión PDF
Ejemplo:

Directorio:

Productividad 01/12/2020.pdf
Productividad 03/12/2020.pdf
Productividad 05/12/2020.pdf
Reporte Producti.pdfvidad
Archivo de Datos.pdf
Query General.xlsx
La productividad del 10/12/2020.pdf
Productividad General.pdf
Un archivo innecesario.pdf

Añade tu respuesta

Haz clic para o