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.