Olá amigos,
Ja dei uma olhada no fórum e ja vi este tópico por aqui mas as respostas que contém nele não consigo utilizar, ou a planilha não existe mais, ou o site não existe mais ou o site realmente não atendeu, tentei também este código abaixo mas não se porque ele só funciona quando quer rsrs
Então alguém poderia me auxiliar ou me mostrar onde posso e3ncontrar uma planilha ou modo de fazer uma, calculando a distancia entre duas cidades.

Segue o código:

Function Km_Distancia(Origin As String, Destination As String) As Double
    'Requer referência ao: 'Microsoft XML, v6.0'

    Dim Solicitacao As XMLHTTP60
    Dim Doc As DOMDocument60
    Dim Distancia_Pontos As IXMLDOMNode

    Let Km_Distancia = 0

    'Checa e limpa as entradas
    On Error GoTo Sair

    Let Origin = Replace(Origin, " ", "%20")
    Let Destination = Replace(Destination, " ", "%20")

    ' Le os dados XML da API do Google Maps.
    Set Solicitacao = New XMLHTTP60

    Solicitacao.Open "GET", "http://maps.googleapis.com/maps/api/directions/xml?origin=" _
        & Origin & "&destination=" & Destination & "&sensor=false", False
    Solicitacao.send

    ' Tornando o XML legível por usar o XPath
    Set Doc = New DOMDocument60

    Doc.LoadXML Solicitacao.responseText

    ' Obtendo o valor da distância entre os nós.
    Set Distancia_Pontos = Doc.SelectSingleNode("//leg/distance/value")
    If Not Distancia_Pontos Is Nothing Then Km_Distancia = Distancia_Pontos.Text / 1000

Sair:
    ' Tidy up
    Set Distancia_Pontos = Nothing
    Set Doc = Nothing
    Set Solicitacao = Nothing
End Function

Fico no aguardo amigos.