Excel Enviar email com planilha em anexo utilizando VBA

[AlexAltheman]

Olá!! Preciso de ajuda.

 

Tenho uma planilha com as abas A,B,C e quero criar um VBA para quando clicar num botão na aba A ele enviar por email a aba B.

 

Encontrei o código abaixo em um video no youtube e tentei adapta-lo mas ele funciona até o corpo do email.  Ele não está anexando a planilha no email.

 

Alguém pode me ajudar?

 

Sub enviar_email()

Set objeto_outlook = CreateObject("Outlook.Application")

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = "[email protected]"

Email.Subject = "Relatório de Vendas"

Email.Body = Cells(2, 2).Value & "," & Chr(10) & Chr(10) _
& Cells(2, 3).Value & Chr(10) & Chr(10) _
& "Abraços," & Chr(10) & "Diego Amorim"

 

Email.Attachments.Add (ThisWorkbook.Path & "\Vendas - " & Cells(2, 2).Value & ".xlsx")

Email.send

End Sub