为什么代码在执行时会无故跳转

[zjg168]

我的一个工作簿包括很多表，其中有“卡片”表和“排序表”，在“排序表”中有Activate事件代码：
Private Sub Worksheet_Activate()
Dim pxb_row As Integer
pxb_row = Sheets("排序表").UsedRange.Rows.Count - 3
If Sheets("卡片").OptionButton1.Value = True Then
Range(Cells(2, 1), Cells(pxb_row, 26)).Sort Key1:=Sheets("排序表").Range("K3"), Order1 _
:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal
Else
.....其它代码.......
End If
End Sub
在“卡片”表中有一ListBox，并有Click事件，代码为：
Private Sub mylistbox_Click()
Dim yrow As Long
yrow = mylistbox.Value
If yrow = "10000" Then
MsgBox "选标题无效"
Else
yrow = yrow + 2
....赋值代码.......
End If
End Sub
但是我在逐语句调试“排序表”Private Sub Worksheet_Activate()的时候发现，当执行上述排序部分后没有结束，而是会转来执行“卡片”表里的Private Sub mylistbox_Click()，而且会执行两次，为什么会这样呢，我百思不得其解，在此请大家出出主意。