Amigo tenho esta macro que talvez possa lhe ajudar.
Substituia a palavra plan5 pela aba que encontra-se o email do destinatário lembrando que esta aba deve conte na coluna A o email e na coluna B assunto.
substitua tambem a plavra superteste para o nome da aba que deseja ser enviada.
espero ter ajudado.
Sub EnviarEmailPlanilhaEspecifica()
Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
Dim stDestin, stTitulo As String, LR, i As Long
With Sheets("Plan5")
LR = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LR
stDestin = .Cells(i, 1).Value
stTitulo = .Cells(i, 2).Value
'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc
sPlanAEnviar = "superteste"
'Cria um novo arquivo excel
Set NovoArquivoXLS = Application.Workbooks.Add
'Copia a planilha para o novo arquivo criado
ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)
'Salva o arquivo
NovoArquivoXLS.SaveAs ThisWorkbook.Path & "" & sPlanAEnviar & ".xls"
sExcluirAnexoTemporario = NovoArquivoXLS.FullName
'Envia o email
NovoArquivoXLS.SendMail stDestin, stTitulo
'Fecha o arquivo novo
NovoArquivoXLS.Close
'Exclui o arquivo criado apenas para ser enviado.
Kill sExcluirAnexoTemporario
Next i
End With
End Sub
Postado : 26/11/2011 1:10 pm