BOA TARDE!

estou com o seguinte codigo para enviar e-mail no excel:

Sub enviar_zerados_frida()
   Dim D1 As String


M = Sheets("aux.").Range("D1")
Sheets("capa").Visible = True
Sheets("capa").Select

    ActiveSheet.Range("B2:D61").Select
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Introduction = “”
      .Item.To = "TESTE@TESTE.COM.BR"

      .Item.Subject = "Zerados VIVO FRIDA " & M & ""
      .Item.Send

   End With
End Sub

porém surgiu um imprevisto. e tenho que alem de usar esse codigo para enviar e-mail, anexar um arquivo de excel e enviar junto.

nesse codigo ja envio as informações q tenho na planilha mas no corpo do e-mail.
gostaria de alem disso acrescentar um anexo (a planilha)

poderiam me ajudar?