各位先進好，
小弟目前需要於某一欄位，在點選後出現另一個活頁簿的幾個選項，
點選後能順利跳出資料窗體進行選取，
之後於窗體按下執行於同一欄位輸出功能時，
就出現"執行階段錯誤 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是否存在？