<mainnote>
<subnote>
</subnote>
<subnote>
<subnote>
</mainnote>
Dim wsXml As Worksheet
Dim xmlDoc As Object
Dim objDOM, n, nodes, subNodes As Object, ns, i, j
Set objDOM = CreateObject("MSXML.DOMDocument")
objDOM.Load (ThisWorkbook.Path & "\xxxxxx.xml")
objDOM.async = False
strPath = Left(strPath, Len(strPath) - Len(strCbf) - 12)
Set ns =objDOM.SelectNodes("//mainnote//subnote")
Dim k
For i = 1 Tons.Length