Create Separate Workbook for Each Excel Tab

Hello,

I'm using the following code to make a separate excel workbook for each tab in my main file. Code works great, the only change I'm trying to accomplish would be to have it skip my data tabs. For example, the tabs named "START", "PM FEES", "TEMPLATE", "RECQ FEE", "LEDGER" should not have a separate excel file created. Only if the name is not one of these listed sheet names, then it should create its own workbook when this macro is ran. Can something help me accomplish this change?

Sub copysheet()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        wb_name = ws.Name
        ActiveWorkbook.SaveAs Filename:= _
            "T:\Test\Test\Collaboration\FA\Project Financial Summary (DRM)\Project Financial Sheets\" & wb_name & " Project Financial Summary " & Format(Date, "mm-dd-yy") & ".xlsx", FileFormat:=51
        ActiveWorkbook.Close
    Next ws
    Application.DisplayAlerts = True
End Sub

Does this work ?

Sub copysheet()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
	If ws.name <> "Start" or "PM Fees" or "Template", or "Recq Fee" or "Ledger" Then
        	ws.Copy
        	wb_name = ws.Name
        	ActiveWorkbook.SaveAs Filename:= _
            	"T:\Test\Test\Collaboration\FA\Project Financial Summary (DRM)\Project Financial Sheets\" & wb_name & " 		Project Financial Summary " & Format(Date, "mm-dd-yy") & ".xlsx", FileFormat:=51
        	ActiveWorkbook.Close
	End If
    Next ws
    Application.DisplayAlerts = True
End Sub

I'm receiving an error on the "if ws.name <> "start" line.

Edit the path to match your system :

Option Explicit

Sub SveShts()

Dim xPath As String
Dim xWs As Worksheet

xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name <> "Start" And xWs.Name <> "PM Fees" And xWs.Name <> "Template" And xWs.Name <> "Recq Fee" And xWs.Name <> "Ledger" Then
            xWs.Copy
            Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
            Application.ActiveWorkbook.Close False
        End If
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Now errors out on "xWs.Copy"

Are there other sheets in the workbook besides the ones listed NOT to be copied ?

Did you edit the path where the workbooks will be saved, to match your computer ?

Yes, several other sheets in the workbook. That is why I was needing the statement adding to prevent it from creating workbooks for these specified tabs. It works as intended in the original code i posted, I just wanted to try and avoid it from creating the sheets I don't actually need as a separate workbook.

Based on the information you provided, my last code example works. Download the sample workbook and try it. Again, you'll need to edit the path where the books will be saved so it matches
your computer.

Change this line :

Application.ActiveWorkbook.SaveAs Filename:=xPath & "" & xWs.Name & ".xlsx"

To this :

ActiveWorkbook.SaveAs Filename:="T:\Test\Test\Collaboration\FA\Project Financial Summary (DRM)\Project Financial Sheets" & xWs.Name & " Project Financial Summary " & Format(Date, "mm-dd-yy") & ".xlsx", FileFormat:=51

I'm not sure what the issue is but the "xWs.Copy" line still errors out. I appreciate the help, but I'll just stick with my original script and deal with the extra excel files created. Thank you for your help.