Boa Tarde
Este exemplo cria um copia de sua sheet ativa
e envia a msm como anexo.
de uma olhada se te atende.
Public Function Envio_Email()
Worksheets("Sua Plan").Copy
ActiveWorkbook.SaveAs "Sua Plan " & ".xls"
ActiveWorkbook.SendMail "", _
"" 'Primeira aspa destinatário. Segunda Assunto
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Function