Мой Private Sub в excel-vba при запуске запускает ошибку

Question

У меня есть две таблицы.Одна из таблиц связана с XML-файлом.Другая таблица здесь для поиска данных.Код в Private Sub должен работать правильно, но когда я хочу его запустить, я получаю сообщение об ошибке.

Ошибка при компиляции:

Неверный идентификатор

XML-Карта связана с этим XML-файлом: http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=*

Private Sub:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = [Name].Row And Target.Column = [Name].Column Then
        Dim Displayname As String: Displayname = [Name].Value
        Dim Map As XmlMap
        Set Map = ActiveWorkbook.XmlMaps
        Map.DataBinding.LoadSettings "=http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=" & Displayname& * ""
        Map.DataBinding.Refresh
    End If
End Sub

Как я могу предотвратить ошибку, чтобы Sub получил executet?