Favor su ayuda con macros

Señores expertos se me ha presentado el siguiente problema y no lo he podido resolver

necesito poder enviar por correo todos los archivos contenidos en una carpeta especifica,

hasta el momento la que ocupo solo envía una hoja determinada o especifica, pero en este caso necesito enviar todos los archivos independiente de la extensión del archivo.