Copy worksheet data into new workbook

[Jietoh]

Hello All,

I've been asked by my boss to create a macro that will quickly backup the whole file I'm working on into a new workbook. Here's the kicker, only the data. Simply copying the worksheets won't work since there is code embedded in the worksheets themselves. So the best I could come up with was to select and copy the cells directly since this would override any and all code I've written in. Please see my code below. It keeps failing at two parts. I'll label it in the code.

Please Login or Register  to view this content.

Any help would be great. Also since I intend to do this for multiple worksheets in the same workbook any help to speed it up would be great. Of course the selection range for each would need to be different.

Thanks,
Dan

[jaslake]

Hi Dan

Looking at the Code, I'd suggest your trying to Select on an inactive Workbook.

For example, in this line of Code, orgwb is not the Active Workbook thus, the Code will fail.

Please Login or Register  to view this content.

Similarly for this line of Code...newwb is not the Active Workbook.

Please Login or Register  to view this content.

Perhaps.....

[spitfireblue]

Hi Dan,

Try something like this...

Please Login or Register  to view this content.

Stephen

[Jietoh]

Stephen - Your solution works great. How can I adapt this code to repeat the process for the rest of the worksheets in my original file.

[Jietoh]

Well I kept playing around with it and got a solution that I am happy with. I've posted below. Thanks to everyone for your assistance and direction.

Please Login or Register  to view this content.