TreeView Help

[texanjohn]

I have simply been a manager too long! I am completely incompetent now.

I am trying to setup a TreeView in a spreadsheet. I am simply trying to understand how to create the various nodes. I can't seem to get any examples I have found through Google to work (for me).

My need is an example to establish something like:

Parent1
- Child1
--SubChild1
---SubSubChild1
--SubChild2
-Child2
Parent2
-Child1
-Child2
--SubChild1
---SubSubChild1
---SubSubChild1
...

Most examples I found are form-based VB examples. I simply couldn't get them to work. Tried something like:
(assume there is control tvwMain)

Dim nodItem As Node
    
   Set nodItem = Me.tvwMain.Nodes.Add _
        (, , "Top", "Select Item", "food")
   Set nodItem = Me.tvwMain.Nodes.Add _
        ("Top", tvwChild, "BurgerTop", "Burgers", _
        "burger")
   Set nodItem = Me.tvwMain.Nodes.Add _
        ("BurgerTop", tvwChild, , "Hamburger", "burger")

This should take me 5, 10 minutes. I have tried, but I have failed. Any help? Thanks.

[texanjohn]

Every time I try the code above or something as simple as

TV1.Nodes.Add , , "root", "Root Item"

I get an error indicating the 'key is not unique'

[Andy Pope]

Each Nodes key must be unique.

See the attached. There tree contents is on the worksheet.

Private Sub UserForm_Initialize()

    Dim rngTreeData As Range
    Dim lngRow As Long
    Dim strNodeKey As String
    Dim strRelativeNode As String
    Dim strText As String
    
    Set rngTreeData = Range("A1").CurrentRegion
    
    With rngTreeData
        For lngRow = 2 To .Rows.Count
            strNodeKey = .Cells(lngRow, 1)
            strRelativeNode = .Cells(lngRow, 2)
            strText = .Cells(lngRow, 3)
                
            If strRelativeNode = "" Then
                ' root
                TreeView1.Nodes.Add , , strNodeKey, strText
            Else
                TreeView1.Nodes.Add strRelativeNode, tvwChild, strNodeKey, strText
            End If
        Next
    End With
    
End Sub