Избежание автоматического добавления пространства имен при сохранении XML в Excel

Question

Я пытаюсь сохранить файл XML в Excel, но Excel добавляет свое собственное пространство имен везде, где это возможно:

• Вместо <urlset xmlns=" я получаю <ns1:urlset xmlns:ns1=",
• Вместо <url><loc> я получаю <ns1:url><ns1:loc> и так далее ...

Я пытался запустить макрос, который находит и заменяет строки - но не удалось, код макроса, кажется, не достигаетпространство имен.Этот код я пытался:

Sub Multi_FindReplace()

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("ns1:", ":ns1")
rplcList = Array("", "")

  For x = LBound(fndList) To UBound(fndList)
      For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next sht

  Next x

End Sub

Вопрос : как избавиться от автоматического добавления ns1: и :ns1 при сохранении XML в Excel?

PS : просматривая этот поток, единственный, который я получил об этой проблеме, я пытался макрос-код, который не работал для меня - он закончился с ошибкойruntime error 1004, methode "Range" for the object "_Global" failed - спросил автор, но до сих пор нет решения: (