Copy data (values and format) to new created sheets

[moosmahna]

Hi everyone,
I have a macro that allows me to create 2 new sheets. This works perfect:

Please Login or Register  to view this content.

Now I want to copy the following data (values and format) to the new sheets:

Sheets("Data").Range(P:Z) usedrange to shName (starting at A1)
Sheets("Data").Range(AA:AC) usedrange to shName (starting at A1)

Can you please help me?
Thanks a lot
Roman

[JOHN H. DAVIS]

Does this help?

Please Login or Register  to view this content.

[moosmahna]

Hi John,
thanks for your code. But I get an error at this line

Please Login or Register  to view this content.

[JOHN H. DAVIS]

What is the error?

[moosmahna]

Runtime error -1004

[moosmahna]

runtime -1004

I tried to combine the 2 Codes

Please Login or Register  to view this content.

[JOHN H. DAVIS]

You have to define variable x.

Please Login or Register  to view this content.

Not sure this will work either. I think you have to expand your Do Loop. Let's see.