You need a userform with a treeview control named "Treeview1" before you run
this code..

I don't understand everything seems to work except the Treeview object being
passed to the Sub "PopulateChildBranches"

Any thoughts would be appreciated.

Code starts after this line.

Sub RunMe()
PopulateChildBranches MyForm, TreeView1, "MyRoot", "L", FilteredLegends
End Sub

Sub PopulateChildBranches(FormName As UserForm, TreeName As Object,
ParentBranch As String, IndexKey As String, StrArray() As String)

Dim X As Long
Dim NodX As Node

For X = 1 To UBound(StrArray)
Set NodX = FormName.TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey
& X, StrArray(X))
NodX.EnsureVisible
Set NodX = Nothing
Next
End Sub


Dan Thompson.

Hi,
what does not work? any error code? which line?

First, replace:
Set NodX = FormName.TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey & X,
StrArray(X))
by
Set NodX = TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey & X,
StrArray(X))

Anyway, we need more inputs to run your code:
- what is FilteredLegends
- even after the above modification, it breaks on "cannot find element" it's
looking for "MyRoot"

Reagrds,
Sebastien
"Dan Thompson" wrote:

You need a userform with a treeview control named "Treeview1" before you run
this code..

I don't understand everything seems to work except the Treeview object being
passed to the Sub "PopulateChildBranches"

Any thoughts would be appreciated.

Code starts after this line.

Sub RunMe()
PopulateChildBranches MyForm, TreeView1, "MyRoot", "L", FilteredLegends
End Sub

Sub PopulateChildBranches(FormName As UserForm, TreeName As Object,
ParentBranch As String, IndexKey As String, StrArray() As String)

Dim X As Long
Dim NodX As Node

For X = 1 To UBound(StrArray)
Set NodX = FormName.TreeName.Nodes.Add(ParentBranch, tvwChild, IndexKey
& X, StrArray(X))
NodX.EnsureVisible
Set NodX = Nothing
Next
End Sub


Dan Thompson.