CREATE MACRO TO COPY MULTIPLE WORKSHEETS

[Guest]

Using the record macro function, I can not copy multiple (50+) worksheets
from other files into one workbook. I have tried two ways. First way was
copying one sheet a a time until I rec'd a too many fonts error. The second
way was to select all sheets ina workbook and copy them to another. With the
second method I rec'd a macro error. Can anyone be of any help?

 

[Fred Smith]

One of the great things about this group is you can get virtually any
problem solved. The advice is free and it's quick. But, you have to meet
them half way.

What 'macro error' did you get?

 

[CLR]

Do you really need all 50 at the same time?...........maybe you could bring
in them in say 10 at a time, process them and flush them, then bring in the
next batch, etc etc.........

Vaya con Dios,
Chuck, CABGx3

 

[Guest]

It was a runtime error "9". The following part of the macro was highlited in
yellow.
Sheets(Array("0365-3000 L", "0365-3100 L", "0365-4010 L", "0395-4001
(226-9170) L" _ , "0382-1000 (SRB21) L", "0382-3000 (TRB21-S) L", "0382-3001
(TRB21) L", _
"0386-0540 (AS21-S) L", "0386-0542 (AS21-2) L", "0380-1000 (LR21)
L", _
"0380-1001 (LR21-S) L", "0380-1002 (226-2334) L", "0380-1003 (LR400)
L", _
"0395-1200 (VM410) L", "0395-1231 (252-9696) L", "0395-3100 (RS400)
L", _
"0395-3101 (244-1714) L", "0395-4000 (AS400) L", "0395-5000 (PM400)
L", _
"0395-5030 (226-9169) L", "0386-5020 (CE21) L", "47422-30 & 47422-34
L", "SRA21 L" _
)).Copy Before:=Workbooks("monthly yld report.xls").Sheets(4)
Range("M55").Select

 

[Guest]

The report I'm doing (monthly) has to have all of the sheets included. There
are just under 100 of them in. There are no calculation done from them, they
are included for reference only to show the raw data collected.

Thanks,
Jim

 

[CLR]

If they are small enough, say each the size of a letter-size paper, or
so.........perhaps several of them could be copied and pasted into one
sheet.........you could then use Hyperlinks to "find" them for
reviewing..........

Vaya con Dios,
Chuck, CABG,x3