Excel - adjuntar archivos a un correo

hola a todos
tengo que adjutar varios archivo a un mensaje que se envia desde excel como puedo hacerlo

chauuuuuuuu!!

Te envío esta macro para trasladar correos, sólo lo tenes que adaptar a lo que necesitas.

Sub Send_Mail()
Dim OL As Object
Dim EmailItem As Object
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(0)
With EmailItem
.Subject = Range("c6")
.Body = Range("c7")
.To = Range("c5")
.Attachments.Add Range("c8").value
.display
End With
Set OL = Nothing
Set EmailItem = Nothing
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Application.Wait (Now + TimeValue("0:00:02"))
End Sub

Las opciones para el sendkeys "%r" o "%n" dependiendo si tienes Outlook en español o ingles… espero que esto resuelva tu problema.