srs,
preciso enviar planilhas diferentes p/ destinatarios diferentes, porem as planilhas partem de uma mesma pasta de trabalho.
achei esse codigo na net que funcionou porém nao consegui selecionar , via VBA:
1- destinatario do email
2- a planilha "x" a ser enviada para esse destinatario.

nota_ a planilha X é criada e nomeada via macro, sendo portanto sempre a ultima plan do arquivo.

alguém poderia me ajudar?

desde já agradeço.
rmartines

codigo:

Sub EnviarEmailPlanilhaEspecifica()

2 Dim NovoArquivoXLS As Workbook

3 Dim sPlanAEnviar As String

4 Dim sExcluirAnexoTemporario As String

5

6 'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc

7 sPlanAEnviar = "Plan3" _ aqui gostaria que o nome da planilha viesse automaticamente , ou seja a última ( rescem ) craida.
8

9 'Cria um novo arquivo excel

10 Set NovoArquivoXLS = Application.Workbooks.Add

11

12 'Copia a planilha para o novo arquivo criado

13 ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)

14

15 'Salva o arquivo

16 NovoArquivoXLS.SaveAs ThisWorkbook.Path & "" & sPlanAEnviar & ".xls"

17 sExcluirAnexoTemporario = NovoArquivoXLS.FullName

18

19 'Envia o email

20 NovoArquivoXLS.SendMail " [email protected]", "título do email" - aqui tb gostria que o email viesse automaticamente de uma lista de emails .

21

22 'Fecha o arquivo novo

23 NovoArquivoXLS.Close

24

25 'Exclui o arquivo criado apenas para ser enviado.

26 Kill sExcluirAnexoTemporario

27

28 End Sub