Boa tarde!
Este é meu primeiro post.
Peço ajuda aos participantes sobre uma dúvida em VBA.
Tenho uma área no Excel que abrange RANGE("A1:D6").Select.
Gostaria de que esta área fosse considerada um texto.
Foi enviá-la por Whatsapp.

Segue o código para envio no Whatsapp.

Esta linha não é aceita: text = Sheets(1).Range("a1:f6")

Sub Enviar()
                
                Dim text As String
                Dim Contato As String
                Dim linha As Byte
               
               
                Windows("BD_Alertas_Previsão.xlsx").Activate
                Sheets("prev matriz").Activate
                
                text = Sheets(1).Range("a1:f6")
                
                
                ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
                
                Fazer (25000)
                linha = 2
                
                Sheets("mailing Whatsapp").Activate
                Range("C" & linha).Activate
                
                Do Until ActiveCell = ""
                
                Fazer (2000)
                Contato = Cells(linha, 3)
                
                'If Contato = "" Then
                'MsgBox "Preencha os endereços de contatos!", 64, "Insira pelo menos um contato"
                'Exit Sub
                'End If
                
                Fazer (3000)
                Call SendKeys("{TAB}", True)
                Call SendKeys(Contato, True)
                Call SendKeys("~", True)
                
                Fazer (8000)
                Call SendKeys(text, True)
                Call SendKeys("~", True)
                
                linha = linha + 1
                
                Loop
                MsgBox "fim"
        End Sub