Mldel,

Bom dia!

Use o código abaixo:

Sub AbrirLink()
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Oie poderiam me ajudar??

gostaria de criar um loop da macro abaixo

Sub EmLote()
  Dim strWebsite As String
  strWebsite1 = [e3]
  ActiveWorkbook.FollowHyperlink Address:=strWebsite1, NewWindow:=True
  MsgBox "Menssagens Enviadas,Confirmar no Aplicativo"
End Sub

 Na linha Coluna Ee Tem o seguinte link:

 ( https://api.whatsapp.com/send?phone=5511999999999&text=HG  )

Porem na E4 E5 E¨6 E7 tbm tem links como esse 

ja tentei for do while 

e por causa do address ele só executa a linha e3

Como fazer um loop desse com todas as linhas?? 

Editado pela Moderação. Motivos: 1) Tópicos do mesmo autor e com mesmo assunto - mesclados. 2) Utilize o botão Código (< >) para inserir código VBA ou Fórmulas. 3) Não use informações pessoais como números de telefone que possam identificá-lo. 4) Hiperlinks que não devam ser clicados devem ser inseridos como código (< >).

Boa tarde, @mldel

Tente o seguinte:

Sub EmLote2()
  Dim c As Range
  For Each c In Range("E3:E7")
    ActiveWorkbook.FollowHyperlink Address:=c.Value, NewWindow:=True
  Next c
  MsgBox "Menssagens Enviadas,Confirmar no Aplicativo"
End Sub