求助......窗体问题

无穷大

问题：

       问题黄色部分，第一次点击窗体可以选择，第二次开始就无法选择了，谁能帮忙解释下！！！

1. Dim Arr
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     'If Target.Count > 5 Then GoTo 100
   
5.     If Target.Column <> 5 Or Target.Row <> 9 Then GoTo 100   
   
6.     Arr = Application.Worksheets("sheet1").Range("a1").CurrentRegion  
   
7.     With TextBox1
   
8.         .Activate
   
9.         .Visible = True
   
10.         .Value = ""
    
11.         .Top = Target.Top '+ Target.Height
    
12.         .Left = Target.Left
    
13.         .Width = 210  
    
14.         .Height = Target.Height * 1.3
    
15.         .BackColor = RGB(255, 255, 150)
    
16.     End With
    
17.     With ListBox1
    
18.         .Visible = True
    
19.         .Top = Target.Offset(0).Top
    
20.         .Left = Target.Left + Target.Width    'Target.Left + Target.Width
    
21.         .Width = 200            
    
22.         .Height = Target.Height * 10
    
23.         .BackColor = RGB(255, 255, 150)
    
24.         .Clear
    
25.     End With
    
26.     Exit Sub
    
27. 100:
    
28. ListBox1.Visible = False
    
29. TextBox1.Visible = False
    
30. End Sub
    
31. 
    
32. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
33. Dim myStr$, i&
    
34. Me.ListBox1.Clear
    
35. If Me.TextBox1 <> "" Then
    
36.     With Me.TextBox1
    
37.         For i = 1 To Len(.Value)
    
38.             myStr = myStr & UCase(Mid$(.Value, i, 1))
    
39.         Next
    
40.     End With
    
41.     For i = 2 To UBound(Arr)
    
42.         If InStr(Arr(i, 1), myStr) Then
    
43.             Me.ListBox1.AddItem Arr(i, 1)
    
44.         End If
    
45.     Next
    
46. Else
    
47.     For i = 2 To UBound(Arr)
    
48.         Me.ListBox1.AddItem Arr(i, 1)
    
49.     Next
    
50. End If
    
51. End Sub
    
52. 
    
53. Private Sub ListBox1_Click()
    
54.     ActiveCell = ListBox1.Value
    
55.     ActiveCell.Offset(0, 1).Select
    
56.     ListBox1.Visible = False
    
57.     TextBox1.Visible = False
    
58. End Sub

复制代码

无穷大

没有老师帮忙么,,,,我自己顶下