Adjuntar varios archivos en un correo por macro
Tengo esta macro que me envía un archivo en pdf, más concretamente la Hoja1 y ahora necesito enviar la Hoja1 y Hoja2 en pdf. No doy con la tecla, ¿alguno de vosotros me podéis ayudar?
Adjunto macro usada ahora para adjuntar la Hoja1 en pdf al correo:
Sub distribucion ()
Dim Asunto As String
Asunto = "Archivo " & Range("L6")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
des = Range("A1")
Set h2 = ThisWorkbook
wpath = ThisWorkbook.Path & "\"
Nombre = h2.Name
Sheets("Hoja1").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=wpath & Nombre & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
dam2.to = ""
dam2.cc = " "
dam2.Subject = Asunto
dam2.Body = "Adjunto archivos"
dam2.Attachments.Add wpath & Nombre & ".pdf"
dam2.display
DoEvents
Kill wpath & Nombre & ".pdf"
Kill "Hoja2" & Nombre & ".pdf"
DoEvents
Set OutMail = Nothing
Set OutApp = Nothing
End Sub