Macro Help?

mcmba

Board Regular
Joined
Feb 17, 2002
Messages
59
I need some help. I have a spreadsheet with like 50+ tabs (created from pivot table, show pages). I now need to take each tab and save it as the tab name in a seperate spreadsheet. So I would like a macro take each tab, save it as the tab name, but leave the original spreadsheet intact. Is this possible? If so can anyone help?
 

Some videos you may like

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,219
Office Version
  1. 365
Platform
  1. Windows
Try this.
Code:
Sub SaveToNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
 
    Set wbThis = ThisWorkbook
   
    For Each ws In ThisWorkbook.Worksheets
         ws.Copy
         Set wbNew = ActiveWorkbook
         With wbNew
              .SaveAs wbThis.Path & "\" & ws.Name
              .Close
         End With
   Next ws
 
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,123,143
Messages
5,599,975
Members
414,354
Latest member
Flaxarn

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top