Cần giúp sửa Code bị Debug (nếu có File B thì chọn File B, còn không thì bỏ qua) (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
---Tôi có 2 File A.xls và B.xls. Tôi có Code sau:
[GPECODE=vb]Sub AB()
Windows("A.xls").Activate
If Not Windows("B.xls") Is Nothing Then
Windows("B.xls").Activate
End If
End Sub[/GPECODE]
---Code trên thể hiện đang chọn File A.xls (Active Workbook), nếu có File B.xls thì chuyển sang chọn File B.xls (Còn nếu không có File B.xls thì bỏ qua)
=> Chạy Code trên thì bị Debug tại dòng 3 => Không biết phải sửa Code tại dòng 3 như thế nào cho đúng (Mà không phải xài On Error goto Label).
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 02 File đính kèm.

 

[Hau151978]

Sub AB()
workbooks("A.xls").activate
for each w in workbooks
if w.name="B.xls" then
w.activate
exit sub
end if
next
end sub

 

[Kiều Mạnh]

Sub AB()
workbooks("A.xls").activate
for each w in workbooks
if w.name="B.xls" then
w.activate
exit sub
end if
next
end sub

Viết vậy rồi mà bỏ quên một dòng sao chạy Bạn

Dim W As Workbook

 

[Hau151978]

Viết vậy rồi mà bỏ quên một dòng sao chạy Bạn

Dim W As Workbook

Tác giả ra đề dạng đố vui như vậy thì chỉ cần ngắn gọn thôi. Mình không khai báo option explicit nên không cần khai báo biến.