copy all worksheet data into a new worksheet

[eric]

hi,everyone:
I have a excel file of 7 worksheets. I will need create a new
worksheet and copy each 7 worksheet data and paste into the new
worksheet. Is there a macro to do that?
thanks.
Eric

 

[Ron de Bruin]

Hi Eric

I have example for you
http://www.rondebruin.nl/tips.htm

 

[Tom Ogilvy]

with this workbook as the activeworkbook:

Sub Copy7()
Worksheets.Copy
End Sub

this will copy the 7 sheets into a new workbook.