Find all the list objects on a Web page, and then to select an item in each list, Using ChildObjects method.

Set oDesc = Description.Create()
oDesc("micclass").Value = "WebList" 
Set Lists = Browser("Shopping").Page("Shopping").ChildObjects(oDesc)
NumberOfLists = Lists.Count()

For i = 0 To NumberOfLists - 1
    Lists(i).Select i + 1
Next