Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Export each worksheet or tab to a new file

Status
Not open for further replies.

chandler

MIS
Dec 10, 2000
66
US
Is there an easier way to either export or copy/paste each worksheet in a workbook to a new file?



Chandler
I ran over my dogma with karma!
 
Easier than what?
Code:
[blue]For Each sht In ActiveWorkbook.Sheets
    sht.Copy
    ActiveWorkbook.Close True, sht.Name
Next[/blue]

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[
 
sweet. thank you.

Chandler
I ran over my dogma with karma!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top