I am trying to convert some code from single sheet to multi-sheet so I can use in an existing excel workbook - up to 70 wk sheets

It is in Public Sub LoadRaceField(wks As Worksheet)


If accepts:- Set runnerList = xmldoc.SelectNodes("//Runner")

For I = 0 To (runnerList.Length - 1)


Set runner = runnerList.Item(I)

Set runnerNumber = runner.Attributes.getNamedItem("RunnerNo")



but then rejects:-


Set poolList = xmldoc.SelectNodes("//Pool")


For J = 0 To (poolList.Length - 1)


Set Pool = poolList.Item(J) GETS STOPPED HERE WHEN COMPILING


Set poolwin = Pool.Attributes.getNamedItem("PoolType")


Any help would be greatly appreciated.


Ta,


Martin