Google Maps API を使って2点間の距離を求めるユーザー定義関数を作りたい

Question

前提・実現したいこと

Google Maps API を使って2点間の距離を求めるユーザー定義関数を作りたいのですが、マクロ名に何も表示されず進めません！ご教授願いたいです。当方はVBAずぶの素人であり、以下のサイトを参考にしています。
https://www.excel-pitin.net/post/2018/01/19/google-maps-api-%E3%82%92%E4%BD%BF%E3%81%A3%E3%81%A62%E7%82%B9%E9%96%93%E3%81%AE%E8%B7%9D%E9%9B%A2%E3%82%92%E6%B1%82%E3%82%81%E3%82%8B%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%BC%E5%AE%9A%E7%BE%A9%E9%96%A2%E6%95%B0%E3%82%92%E4%BD%9C%E3%82%8B

該当のソースコード

Function DGMAP(origin As String, destination As String, distance As Boolean) As String

    'http://stackoverflow.com/questions/10116301/google-maps-api-for-time-and-distance-data-access-vba
 

    Dim sXMLURL As String
 sXMLURL = "https://maps.googleapis.com/maps/api/directions/xml?origin=" & origin & "&destination=" & destination & "&sensor=false&key=APIキー"
 

    Dim objXMLHTTP As MSXML2.ServerXMLHTTP60

    Set objXMLHTTP = New MSXML2.ServerXMLHTTP60
 

    With objXMLHTTP

        .Open "GET", sXMLURL, False

        .setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"

        .Send

    End With
 

    'Debug.Print objXMLHTTP.ResponseText
 

    Dim domResponse As DOMDocument60

    Set domResponse = New DOMDocument60

    domResponse.LoadXML objXMLHTTP.ResponseText

    Dim ixnStatus

    Set ixnStatus = domResponse.SelectSingleNode("//status")
 

    If ixnStatus.Text = "OK" Then

        Dim ixnDistance, ixnDuration

        Set ixnDistance = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/distance/text")

        Set ixnDuration = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/duration/text")

    End If

    If IsEmpty(ixnDistance) Then

        DGMAP = "Empty"

        Exit Function

    End If
  '距離（True) または時間（False)

    If distance = True Then

        DGMAP = Left(ixnDistance.Text, InStr(1, ixnDistance.Text, " ") - 1)

    Else

        DGMAP = ixnDuration.Text

    End If

    Set domResponse = Nothing

    Set objXMLHTTP = Nothing

End Function

Answer 1

ユーザー定義関数なので普通の関数と同じように
セルに｢=DGMAP(出発地,目的地,時間or距離)｣入力で使えると思います
(ご参考にされたサイトのご確認いただければと思います)

Comments

[kud]

=DGMAP ([origin], [destination], TRUE: distance/ FALSE: time)
こちらを入力するということでしょうか？

サイトの例でいえば、以下のように入力するイメージでしょうか？
=DGMAP (C1, D1, TRUE)

上記2つとも試しましたが、この数式には問題がありますと表示されてしまいます

[kud]

=DGMAP(C1,D1,TRUE)

余分な半角スペースが入っていたので修正してみましたが、今度は「名前が適切ではありません」と表示されてしまいます

[na-01]

上記のソースコードが複数あったりしませんか？
名前が重複していると出るエラーかと思います