Splitting Workbook With an Exception

[Oprichnick]

Hello,
I have this code that splits all my sheets in the workbook in new files.

Sub Splitbook()

Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True


MsgBox ("The Splitting is Done")
End Sub

Is it possible to make exceptions based on the name of a sheet?

Thanks,
Pedro

 

[JLGWhiz]

Something like this:

For Each xWs In ThisWorkbook.Sheets
    If xWx.Name <> "except1" And xWx.Name <> "except2" Then  'Where the except1 and 2 would be the sheet names to except.
        xWs.Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
        Application.ActiveWorkbook.Close False
    End If
Next

 

[Oprichnick]

Something like this:

For Each xWs In ThisWorkbook.Sheets
    If xWx.Name <> "except1" And xWx.Name <> "except2" Then  'Where the except1 and 2 would be the sheet names to except.
        xWs.Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
        Application.ActiveWorkbook.Close False
    End If
Next

Hello,
Thanks for the reply, but it is not working. It still copies the sheet I want to make an "exception".

 

[JLGWhiz]

Hello,
Thanks for the reply, but it is not working. It still copies the sheet I want to make an "exception".

Please post the code you used based on my suggestion. Also, what is the sheet name that you want to exclude?