That's correct.

I would think that the only line you'll be changing in the code is this:

Set sourceRange = mybook.Worksheets("Sheet99").Range("a1:k10")

Change sheet99 to whatever you call all those sheets and change a1:k10 to
whatever range you want copied.

jonesaa05 wrote:

Dear Dave,

First, if to make the code work ok, I can manually make the same
worksheet name in each workbook. But, I also need the same range of
every sheet to be"copied " to the new worksheet. So, the code would
have to be modified like what you said. Correct me if I am wrong.

My question is : How does it can be done?

Thanks,
amy

--
jonesaa05
------------------------------------------------------------------------
jonesaa05's Profile: http://www.excelforum.com/member.php...o&userid=28021
View this thread: http://www.excelforum.com/showthread...hreadid=475287

--

Dave Peterson