Mi sem egyszerűbb: Egy teljeles üres munkafüzetben egy modulon a következőt elindítom:

Option Explicit
Sub Ellenőrzés()
Dim ws1 As Worksheet, ws2 As Worksheet
Application.DisplayAlerts = False ' figyelmeztetések kikapcsolása
Set ws1 = Workbooks("teszt.xls").Worksheets("Munka1")
Set ws2 = Workbooks("teszt.xls").Worksheets("Munka2")
ws1.Activate
ws2.Range("A1").Select
End Sub

És a ws2.Range("A1").Select soron hibát jelez.