各位先进好，
小弟目前需要于某一字段，在点选后出现另一个活页簿的几个选项，
点选后能顺利跳出资料窗体进行选取，
之后于窗体按下执行于同一字段输出功能时，
就出现"执行阶段错误 424"此处需要物件
程式码如下:
Private Sub CommandButton1_Click()
Dim Arr(), k&, i&
ReDim Arr(1 To 1)
With ListBox1
For i = 1 To .ListCount - 1
If .Selected(i) Then
k = k + 1
ReDim Preserve Arr(1 To k)
Arr(k) = Sheet3.Range("A" & (i + 1)).Value <

猜猜看 错误的时候 i 值是多少？Sheet3是否存在？