Eu ate ja tinha baixado este aqui, muito bacana, mas o ideal era que mantivesse a aba ja aberat do Crome e nao fechasse a aberta e abrisse outra a todo momento que enviasse a mensagem.

Se alguem puder modificar a linha de comando que faz abrir uma nova aba no Cromo , aproveitando a ja aberta, favor postar aqui.

https://www.youtube.com/watch?v=kqlvXpJ0mBQ

Boa tarde!!

Fiz duas alterações no código a primeira é para enviar pelo número do celular no lugar do nome do contato tive que alterar a parte do código abaixo

If Contato = "" Then

para

If Contato = " " Then

Tem que colocar o número que esta no Whatsapp (xx) 1234-5678 sem o "5" dígito. Testei para um numero que não esta nos meus contatos mas esta no meu histórico de conversas e funcionou.

E a segunda inclui o código abaixo e funcionou para enviar imagem do excel para o whatsapp com resalvas .

 Fazer (8000)
With Plan1
ActiveSheet.Shapes.Range(Array("nome da figura")).Select
Selection.Copy
End With

Call SendKeys("^v", True)

Fazer (8500)
Call SendKeys(text, True)  ' Aqui adiciona no "Adicionar uma legenda" o texto que estiver no textobox1 ate aqui funciona para 1 pessoa. Porem para a 2 pessoa não coloca como legenda e sim como mensagem normal. Não sei o porque. Não testei com mais pessoas mas acredito que quem quiser deixar sem legenda é so excluir essa linha ou comentar ela no código.
Call SendKeys("~", True)

Para enviar para 1 pessoa esta funcionando perfeito, porem quando tem 2 pessoas para enviar ela não envia a imagem mas envia o texto que esta no textbox1 sem enviar a imagem.

Galera, ele usa as seguintes linhas para enviar as mensagens:

Fazer (2000)
Call SendKeys("{TAB}", True)
Call SendKeys(Contato, True)
Call SendKeys("~", True)

Fazer (2000)
Call SendKeys(text, True)
Call SendKeys("~", True)
SendKeys "{ENTER}", True

Só que ele envia cada paragrafo uma mensagem, alguem sabe como alterar o codigo para que ele envie em 1 mensagem só os dois paragrafos digitados na caixa de texto?

Sub Enviar()

'não pode fazer clicks ou mudar o foco do mause nem pressionar teclas
Dim text As String
Dim contato As String
'original
' text = Sheets(1).TextBox1
text = Sheets(1).Range("F8")


If text = "" Then
MsgBox "Digite a Mensagem a ser envida!", 64, "ERRO DE PROCEDIMENTO"
Exit Sub
End If

'ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
Shell "C:Program Files (x86)GoogleChromeApplicationchrome.exe" & " https://web.whatsapp.com/"

Fazer (15000)
 
linha = 8
Do Until Sheets(1).Cells(linha, 1) = ""

Fazer (2000)
contato = Cells(linha, 1)

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)
'SendKeys "{ENTER}", True
Call SendKeys("~", True)

linha = linha + 1

Loop

'ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
'Shell "C:Program Files (x86)GoogleChromeApplicationchrome.exe" & " https://web.whatsapp.com/"
 'Application.Wait TimeSerial(0, 0, 1)
' Fazer (7000)
' SendKeys "{TAB}", True
' SendKeys "camilly", True
' Call SendKeys(text, True)
'SendKeys "{ENTER}", True
'Fazer (2000)
'Call SendKeys(text, True)
'SendKeys "{ENTER}", True
'Call SendKeys("~", True)

End Sub

Function Fazer(ByVal Acao As Double)

Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)

'milliSeconds
End Function


Sub teste()

Fazer (5000)
MsgBox "suel"

End Sub

Boa noite! Com o código acima apresentado pelo nobre @edisonlsd, eu consigo enviar mensagens para pessoas que não tenho contato? consigo também enviar arquivo em foto através deste código? se não, alguém teria como fazer um código que conseguisse enviar mensagem para não contatos e enviar mensagem em texto e imagem.

O código acima está utilizando o SendKeys do windows, é funcional porém "trava" o computador durante a execução. Outro dia fiz um rascunho de um programa desses usando o Selenium + Chrome, era um trabalho na 99Freelas. Existem alguns Exemplos/Códigos no YouTube.

Qual valor? se não for caro podemos pensar em adquirir haha

No teu código consigo enviar mensagem em texto e imagem para pessoas que não tenho como meu contato?

Você nem precisa comprar, esse cara https://www.youtube.com/watch?v=ZXIaXo_3bMQ&t=445s disponibiliza uma macro similar de graça (texto + imagem) e ensina como usar.