Create and save as a new workbook

[Halid]

Dear All,

I have 1 workbook and there are some sheets. I want to save all sheets as new workbook in the specific destination folder. But workbooks name should be same as in sheet.

Please find attached. For example, sheet1 name is "1", sheet2 name is "2" and ...... Saved files should be equal to sheet names.

Could you please help.

Thanks in advance.

[Eastw00d]

This should do the trick:

Please Login or Register  to view this content.

B/R
Erwin

[bakerman2]

You don't have to select the sheets prior to copying.

Please Login or Register  to view this content.

[Halid]

Thanks to all but it is thinking 10-12 seconds even there are 2 sheets when I run code. Maybe we need to add some codes to speed up the process?

Thanks in advance.

[Eastw00d]

you could add the Application.ScreenUpdating property in your macro; it will speed up things!
set it to False in the beginning of the macro and to True at the end.
B/R
Erwin

[bakerman2]

Then something else is causing the delay because just tested the code on your example workbook and with screenupdating set to false it just took 3sec. to copy the 6 sheets.(4.5 without screenupdating)

You could also try setting Calculation to manual at the start (set back to Automatic at the end)

[Halid]

Thanks to All!

[bakerman2]

Thanks for feedback.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

[Halid]

Thanks and Done.