Bom dia a todos, pesquisei bastante e todas as soluções que encontram sao bem simples, porém ao colocar no meu código a mesma não funciona..

Eu quero enviar um email com um range determinado no corpo, dei nome ao range para facilitar, porém nao consigo referenciá-lo no código, vejam:

 Sub MandaEmail()
  
    Dim EnviarPara1 As String
    Dim Enviarpara2 As String
   
        EnviarPara1 = (ActiveWorkbook.Sheets("Supervisão").Range("D5"))
        Enviarpara2 = (ActiveWorkbook.Sheets("Documentação").Range("name1"))
            Envia_Emails EnviarPara1, Enviarpara2
    
    End Sub
        Sub Envia_Emails(EnviarPara1 As String, Enviarpara2 As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
 
    With OutlookMail
        .To = EnviarPara1
        .CC = ""
        .BCC = ""
        .Subject = "teste"
        .Body = Enviarpara2
        .Display
    End With
 
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
        End Sub

Da erro de variáveis incompatíveis, minha ideia futuramente é enviar para todos os namei que tenho, se nao me engano vai até 30. então criaria um loop até namei atingir name30, porém fazendo o teste para um name fixo ja não estou conseguindo..

Obrigado