通过子节点循环的Excel VBA TreeView

我正在使用Excel TreeView对象。 我没有问题循环通过父节点，但不能让它与子节点的工作。

这是我如何做父节点。 这工作正常。

Total_Rows =10 For I = 1 To (Total_Row - 2) 'subtract two for the headers If TreeView1.Nodes(I).Checked = True Then Range("Nodes_Checked")(I + 2) = "x" End If Next I 

这是我如何做的与子节点。 这似乎只检查第一个子节点，而不是所有的节点。

 For i = 1 To (2) 'subtract two for the headers If TreeView1.Nodes(i).Child.Checked = True Then MsgBox "The child node is checked" End If Next i