Saving Multiple Tabs as New Excel File

All,

I am trying to automate some reports that I regularly generate. I am currently squeezing all of my data on 1 tab for each file I create using:

Dim xPath As String
Dim xContents As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
                xContents = ActiveSheet.Cells(5, "B").Value
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & "_" & xContents & ".xls"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

I'd like to split my data on to multiple tabs so that I can have a summary tab and a detail tab. In my master file that I'm working on, I have 30 worksheets to create 30 workbooks. I'd like to revise my master file to have 60 worksheets saving 2 worksheets to each file and still create 30 workbooks. Does that make sense?

Thank you!