Bom dia!!!
tente isso..........

Sub TenteAdaptar()

Link_AleVBA = Range(Mid(Split(Range("A1").Formula, ",")(0), 12))
ActiveWorkbook.FollowHyperlink Address:=Link_AleVBA, NewWindow:=True

End Sub

Talvez outra forma....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  

  Const MyRange = "B10:B40"
  Const Lnk = "http://www.yahoo.com"
  
  If Intersect(Range(MyRange), Target) Is Nothing Then Exit Sub
  Cancel = True
  ThisWorkbook.FollowHyperlink Lnk & Sheets("Sheet2").Range("B6"), NewWindow:=True
  
End Sub

Att

pauloptavares,

Bom Dia!

Segue outra sugestão:

paulitotavares,

Bom Dia!

Para buscar o valor nas células, supondo que essas células sejam, por exemplo, A2 e A3, na Plan1, faça o seguinte:

Código: Selecionar todos
Private Sub CommandButton200_Click()
ActiveWorkbook.FollowHyperlink Address:="http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q=" & Sheets("Plan1").Range("A2").Value & "," & Sheets("Plan1").Range.("A3").Value", NewWindow:=True
Me.MultiPage1.Value = 0
End Sub

Obrigado pela ajuda.

Já agora se quiser fazer com que apareçam vários sinalizadores no mesmo mapa, ao mesmo tempo, como hei-de fazer?

Por exemplo os locaos de A1:A10.

Como assim?

Paulito, tambem não entendi o que quer dizer com "varios sinalizadores".

Sei que é um pouco diferente do que procura, mas de uma olhada no tópico abaixo se ajuda em algo:

Busca no Google através do Excel (Fórmula e VBA)
viewtopic.php?f=21&t=90

[]s

Bom dia

O que pretendo é que em vez de sinalizar uma localização de cada vez, quero é que me apareçam várias localizações sinalizadas no mesmo mapa, estando estas num determinado intervalo de células.

Cumprimentos