for each 的应用是否正确

31467.3

    我想编写一个程序，我先打开若干个工作簿1、2、3、4、5 ···，再打开工作簿A，我现在想把1、2、3、4、5···的特定单元格内容复制到A的特定位置，就想要用for each 语句

Dim wk as workbook,b %    b是确定复制到A特定位置的变量
for each wk in workbooks
if wk.name like "*[1,2,3,4,5]*"  then   我是手动打开工作表的，打开的顺序不一定，也不一定全打开，12345是工作表名字的一部分
b=b+1
b.Activate
然后复制1、2、3、4、5的特定区域
A.Activate

然后粘贴到A的含有变量b的特定位置




    现在我的问题来了，因为我打开的工作表顺序不一定，所有   for each 语句好像是默认从我打开的第一个算起，那么相应的我的b 值就不能起到笃定位置的作用，我本来想要  表1复制到A的位置，表2复制到A的b+1位置，现在他可能先打开表2，这样他就辉让表2复制到A的b位置，就不是我想要的·····
    代码就是个意思，并不严谨，我想问问我是否应该用for each 语句，或者说我该如何让他自动排序，按照12345的顺序给我识别呢，VBA小白谢谢诸位大神。