Be kellene határolni, hogy melyik lépésnél akad ki.

Tegyél be egy msgbox ""-ot az első utasítás után, majd, ha még jó, akkor így tovább.

For i = 3 to Db

...

Workbooks(i).Activate

Msgbox ""

...