Ajuda com planilha

[rmalves211]

Pessoal tudo bem? eu não tenho muito conhecimento com VBA, mas consegui fazer uma planilha para envio de Whatsapp. Mas de uns tempo para cá essa planilha apresenta muitos erros.
Será que alguém pode me ajudar ? 

Na vdd eu preciso que ela envie o whtasapp, e ela faz, porem a mensagem não sai configurada com espaços e paragrafos, e isso não ocorre hoje.

alguém pode me ajudar ?

 

Sub whatsapp()
    Dim texto As String
    Dim linha As Integer
    Dim GC As Object
    Dim WebUrl As String
    Dim NavigatorAddress As String

    Sheets("bancodedados").Select
    linha = 2
    texto = Cells(linha, 3)
    linha1 = 2
    texto1 = Cells(linha1, 13)
    
Let NavigatorAddress = "C:\Program Files\Google\Chrome\Application\chrome.exe"
'Set GC = CreateObject("InternetExplorer.Application")
Let WebUrl = " "
Shell (NavigatorAddress & " -url " & WebUrl)

    
Do Until Sheets("bancodedados").Cells(linha, 3) = ""
'Application.Wait (Now + TimeValue("00:00:01"))

Cells(linha, 3).Copy
Application.Wait (Now + TimeValue("00:00:03"))
  
Call SendKeys("^{V}", True) '----> COLA OS DADOS DO EXCEL

Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("{HOME}", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{del}", True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys("~", True)

Application.Wait (Now + TimeValue("00:00:20"))
'Application.SendKeys ("%{TAB}")
Call SendKeys("~", True)


'Cells(linha1, 13).Copy
'Call SendKeys("^{C}", True)
'Application.Wait (Now + TimeValue("00:00:01"))

                
'Call SendKeys("^{V}", True) '----> COLA OS DADOS DO EXCEL
'Call SendKeys("~", True)



   
   
    
'   Call SendKeys("~", True) 'entra na tela do contato no WhatsApp
    
  'Call SendKeys("%{F4}", True)
  'Application.Wait (Now + TimeValue("00:00:01"))
  'Call SendKeys("~", True)
   
   
' Application.Wait (Now + #10:51:00 AM#) '---- HORA PARA FECHAR A PLANILHA
  
 linha = linha + 1
 Loop
 End Sub