Bom dia a todos

eu tenho uma planilha para enviar email, porem gostaria de conseguir enviar anexo ja tentei algumas coisas mas ate agora nada funciona
poderiam me ajudar?

segue o código VBA que eu uso e planilha.

Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("c1:e27").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Item.To = "[email protected]"
.Item.cC = " "
.Item.Subject = ("MIRO")
.Item.Display
End With
End Sub