Macro Help?

[mcmba]

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?

 

[Norie]

Try this.

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

 

[mcmba]

Worked like champ!!! Thanks!