Boa tarde,

Criei uma planilha com algumas funções automzatizadas e optei por criar um botao de comando, no qual ao clicar envia a planilha por email.

Achei um código já pronto e modifiquei o mesmo.

POREEEEM, não consigo selecionar somente uma parte da planilha para enviar por email (RANGE). Poderiam me ajudar?

Desde já agradeço.

Segue código:Sub Send_Range()
Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String

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

'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 "[email protected]", "Teste"

'Fecha o arquivo novo
NovoArquivoXLS.Close

'Exclui o arquivo criado apenas para ser enviado.
Kill sExcluirAnexoTemporario

Segue anexo a planilha.

Obrigado.