This is probably a really bad way to do this, but I had to make some modifications but the below code appears to work great!
Do you have a better way I should go about coding this? It does work, so I'm thrilled. You got me on the right path, so thanks!
Set pgRestore = Aliases.WebBrowser.Page("*")
Nodes = pgRestore.EvaluateXPath("//TD[@class='ygtvlp']//DIV[@class='ygtvspacer']")
MidNodes = pgRestore.EvaluateXPath("//TD[@class='ygtvtp']//DIV[@class='ygtvspacer']")
While VarType(Nodes) <> varNull
Indicator.PushText "Finding Nodes..."
Nodes = pgRestore.EvaluateXPath("//TD[@class='ygtvlp']//DIV[@class='ygtvspacer']")
Indicator.PushText "Finding MidNodes..."
MidNodes = pgRestore.EvaluateXPath("//TD[@class='ygtvtp']//DIV[@class='ygtvspacer']")
Indicator.PopText
If VarType(Nodes) <> varNull Then
For i = 0 To UBound(Nodes)
If Nodes(i).Exists = TRUE Then
Nodes(i).Click
Call Delay(1000)
End If
Next
End If
If VarType(MidNodes) <> varNull Then
For j = 0 to UBound(MidNodes)
If MidNodes(j).Exists = TRUE Then
MidNodes(j).Click
Call Delay(1000)
End If
Next
End If
WEnd