Copy sheets to new file and rename it

**Jokacave** · 06-26-2007, 11:55 AM

Hi everybody,
Without experience in programming I need help from you, everyone who could help me.
I have 50 worksheets in 1 workbook. Any of those sheets I named XXREC – XX is a number (01REC, 02REC, 03REC,… 50REC). I need to create a Workbook for each worksheet, rename the workbook with the actual name (I mean, number) of the sheet without the 3 last letters (REC) and rename the sheet inside the workbook, with Sheet1.

Until now, checking other examples, I create this:

Please Login or Register  to view this content.

Thank you in advance for any help

**ska67can** · 06-26-2007, 01:06 PM

Please wrap code next time

Try this:

Please Login or Register  to view this content.

ska

**Jokacave** · 06-26-2007, 01:51 PM

Hi Ska67Can
Here (Asia) it's too late (01:50) to check anything...
Tomorrow, back to my office, I'll do it and I'll tell you something.
Anyway, thank you for your reply.
Regards
PS-Do you like ska music?

**boylejob** · 06-26-2007, 01:51 PM

Jokacave,

Here is the code you were using with a few minor modifications and it appears to do what you are wanting it to do on my end.

Please Login or Register  to view this content.

**Jokacave** · 06-26-2007, 02:02 PM

Hi Jeff,
As I told to Ska67can it's too late here to check anything but tomorrow I'll tell you something.
Anyway, my thanks to you too.
Regards

**boylejob** · 06-26-2007, 02:11 PM

Jokacave,

Great! I look forward to hearing how both sets of code work. I am sure that both with do what you are wanting. I just wanted to give you something as close to what you had already written as possible.

Where in Asia are you?

**Jokacave** · 06-26-2007, 02:24 PM

Jeff,

Macau - casinoland!!! - ex-portuguese colony, part of PR China, and like Hong Kong, autonomous region of China.

We talk tomorrow. Sorry.

Regards

**Jokacave** · 06-27-2007, 08:28 AM

Hi,

Jeff,
I regret to inform you that your code doesn't work the way I want. In the end it will give me only 1 workbook with the name Expsh and not the 50 that I expect.

Ska,
your code works well. I change a few things but all the credit belongs too you.

Anyway, thank you to both of you for your kindly help.