Para este código funcionar você deve ter o outlook instalado e funcionando no computador para  enviar email.

Apesar de eu colocar o Excel 2003, ele serve para as outras versões também.

 

Inserir código de Enviar Email abaixo:

 

Sub enviaEmail

'variável que grava o email do destinatário
mail = "email@email.com; email2@email.com"

'Mostra a mensagem de envio de email
ActiveWorkbook.EnvelopeVisible = True

'envio de e-mail
With ActiveSheet.MailEnvelope
.Introduction = "Bom Dia, segue os dados abaixo."
.Item.To = mail
'.Item.Cc = mail1
.Item.Subject = " Teste "
.Item.Send
End With

End Sub