Help:loop on two workbooks

[anan]

Hi,

I am trying to loop on each sheet in a workbook. If any sheet o
interest is found, I need to copy the sheet into another workbook. M
code looks like as follows, but I keep getting error message "subscrip
out of range". Anyone could help me out. Thanks in advance.

For Each ws In ActiveWorkbook.Worksheets
i = 1
For i = 1 To 20
If ws.Name = Copy_list(i) Then

ws.Copy Before:=Workbooks _
("aa").Sheets(1)
Windows("bb").Activate
End If
Next
Nex

 

[LtLeary]

Well without really knowing what Copy_List was dimensioned for or what is in
it, I would say that the error you are getting is you are trying to
reference Copy_List(i) where i is outside the bounds of the array.

If you issue the command msgbox ubound(Copy_List) what does it say? If it
says 20 take a look at the lbound statement. It could be that you
dimensioned it for 20 but it starts at 0 instead of 1.

LT