XmlImport и карты XML

[Fierce]

Есть книга с двумя картами XML. При помощи кода происходит импорт XML данных на листы. В коде укзано какую карту использовать.

Sub Pinacle()
Dim Sport As String

Sport = "basketball"
Call ImportPinacleLine(Sport)

Sport = "soccer"
Call ImportPinacleLine(Sport)

End Sub

Sub ImportPinacleLine(Sport As String)
Dim xmlURL As String
Dim CustomMap As XmlMap
Set CustomMap = ThisWorkbook.XmlMaps("pinnacle_" & Sport)

xmlURL = "http://xml.pinnaclesports.com/pinnacleFeed.asp?sportType=" & Sport & "&contest=no"
ThisWorkbook.XmlImport URL:=xmlURL, ImportMap:=CustomMap

End Sub

Но почему то при выполнении высвечивается окно с выбором карты XML. Почему так происходит, ведь в коде четко указано, какую карту использовать?
Вот пример файла