Excel Ativar uma celula com VBA

[Hugo de Payens]

Gravei uma macro afim de automatizar um processo no qual ela copiava um concatenar de 3 células (Célula 1=HIPERLINK("https://api.whatsapp.com/send/?phone= / Célula 2 = (XX) XXXXX-XXXX / Célula 3=&text&app_absent=0";"Link para WhatsApp") que formariam um hiperlink (o (XX) XXXXX-XXXX é a variável de telefone que a pessoa que utilizasse a planilha colocaria para direciona-la a conversa com determinado contato) a macro acabo fazendo todo o processo que gravei normalmente mas quando ele ativa a célula ele ativa com o numero que usei para gravar a macro e não com o novo numero colocado na célula. Gostaria de saber como faço pra ela ativar a célula e gerar o hiperlink com o número o qual foi colocado na célula 2. 

(Sei que não deve ter os () no numero estou usando apenas para uma identificação visual mais fácil) 

[Basole]

Tente assim....

Na celula 1 coloque apenas url: https://api.whatsapp.com/send/?phone=

Na celula 2 coloque o numero do celular com (ddd) desejado, ex : 21987654321

E na celula 3 coloque: &text&app_absent=0

 

.... e na sua macro substitue a linha abaixo, considerando que as celulas envolvidas sejam A2, B2, C2 respectivamente. (altere no código de acordo com o seu cenario)

 

ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & [A2] & "+55" & [B2] & [C2] & """,""Link para WhatsApp"")"