I have stripped down my code and the following is the problem, it
takes 20+ mins to execute. Some facts
Sourcewb = 1.8mb
Destwb = 950k (when it eventually copies)
I have set Calculation to Manual, Screenupdating & EnableEvents to
false

Can't see why copying out from one workbook to a new workbook even 9
sheets would take so long



'Copy the sheets to a new workbook
Sourcewb.Sheets(Array("E-Total Hours", "E-Mail Current Week", "E-
Mail Project v Last Yr Actual", "E-Mail Actual v Last Year", "E-Mail
Comments", "e-Mail Excess", "E-Sales", "E-Splash", "E-Users")).Copy
Set Destwb = ActiveWorkbook