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: