with this workbook as the activeworkbook:

Sub Copy7()
Worksheets.Copy
End Sub

this will copy the 7 sheets into a new workbook.

--
Regards,
Tom Ogilvy

"eric" wrote in message
om...
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