跪求帮助！

523736452@qq.co

运行以下代码报错：
提示：未发现元素
Private Sub 二级类别_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
n = 1‘全局变量
If KeyCode = 13 Then
  Unload Me
  类别选择窗口.Show
  类别选择窗口.Caption = "合同类别"
End If
End Sub

“类别选择窗口”下的代码如下

Private Sub UserForm_Initialize()
Dim Nodx As Node
Dim x
x = "请从下表中选择“" & Me.Caption & "”"
TreeView1.ImageList = ImageList1
Set Nodx = TreeView1.Nodes.Add(, , "H", x)
For x = 2 To Sheet1.Range("B65536").End(xlUp).Row
   c1 = Sheets(n).Cells(x, 2)
   c2 = Sheets(n).Cells(x, 3)
   If Len(c1) = 1 Then
     Set Nodx = TreeView1.Nodes.Add("H", tvwChild, c1, c2, 1)
   ElseIf Len(c2) = 3 Then
     Set Nodx = TreeView1.Nodes.Add(Left(c2, 1), tvwChild, c1, c2, 2)
   ElseIf Len(c1) = 5 Then
     Set Nodx = TreeView1.Nodes.Add(Left(c2, 3), tvwChild, c1, c2, 3)
   ElseIf Len(c1) = 7 Then
     Set Nodx = TreeView1.Nodes.Add(Left(c2, 5), tvwChild, c1, c2, 4)
   End If
Next
End Sub