Include Worksheets From Workbooks into ONE new Workbook

[tcgaines]

II have 5 Workbooks. Each have one worksheet. I want to create a new workbook that includes each of the worksheets from each of the five workbooks. how do i do that? One problem I forsee is that each of the worksheets are named "Sheet 1" by default.

thoughts? thanks.

[Ron de Bruin]

Hi tcgaines

Try
http://www.rondebruin.nl/copy3.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"tcgaines" <[email protected]> wrote in message
news:[email protected]...
>
> II have 5 Workbooks. Each have one worksheet. I want to create a new
> workbook that includes each of the worksheets from each of the five
> workbooks. how do i do that? One problem I forsee is that each of the
> worksheets are named "Sheet 1" by default.
>
> thoughts? thanks.
>
>
> --
> tcgaines
> ------------------------------------------------------------------------
> tcgaines's Profile: http://www.excelforum.com/member.php...o&userid=29608
> View this thread: http://www.excelforum.com/showthread...hreadid=493857
>

[tcgaines]

perfect!!! i dont know why its soooo slow (about 3-4 minutes) but it works!!

[Ron de Bruin]

Maybe if you also disable the events it is faster

Before the loop
Application.EnableEvents = False


and after the code is ready
Application.EnableEvents = True


--
Regards Ron de Bruin
http://www.rondebruin.nl


"tcgaines" <[email protected]> wrote in message
news:[email protected]...
>
> perfect!!! i dont know why its soooo slow (about 3-4 minutes) but it
> works!!
>
>
> --
> tcgaines
> ------------------------------------------------------------------------
> tcgaines's Profile: http://www.excelforum.com/member.php...o&userid=29608
> View this thread: http://www.excelforum.com/showthread...hreadid=493857
>

[Jim Thomlinson]

Depending what your code is up to sometimes turning calcualtions off wile the
macro is running will speed things up. As with any application level events
it is best to include an error handler when you modify these settings
(Calculation, Alerts, Events)...

Sub DoYourStuff()
on error goto errorhandler
application.calculation = xlManual
applicaton.enableevents = false
'Your code here

ErrorHandler:
application.calculation = xlAutomatic
applicaton.enableevents = true
End Sub

--
HTH...

Jim Thomlinson


"tcgaines" wrote:

>
> perfect!!! i dont know why its soooo slow (about 3-4 minutes) but it
> works!!
>
>
> --
> tcgaines
> ------------------------------------------------------------------------
> tcgaines's Profile: http://www.excelforum.com/member.php...o&userid=29608
> View this thread: http://www.excelforum.com/showthread...hreadid=493857
>
>