ListBox1.Selected（i）= True停止工作

Question

我想将一个列表框中的选定项目移动到第二个列表框中，它的工作正常。过了一会儿，它停止了工作！

Private Sub add_Click()
'delete old selection
For i = 0 To Listbox2.ListCount - 1
         Listbox2.RemoveItem (i - counter)
         counter = counter + 1

Next i
    For i = 0 To Listbox1.ListCount - 1
     If Listbox1.Selected(i) = True Then Listbox2.AddItem Listbox1.List(i)
    Next I
End Sub

VBA未检测到Selected(I)为真。如果我重新打开我的excel文件，它会再次起作用。