Simple VBA Help. Split all worksheets into work books, but three. Still Learning.

[GaryG9595]

Hello,
The I'm using the below macro (EX 2.) and it works perfect, but I now want to exclude the sheets named below in (Ex.1)
How can I merge this exclusion into the macro in EX 2.?
I want to split every worksheet but these three listed below.
Thanks in advance,
Gary

EX 1.
If WS.Name <> "Customized" And WS.Name <> "Create Sheets" And WS.Name <> "GF ACCTS with master and test" Then

EX 2.
Sub SplitbookTXT()
'Updateby20140612
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 & ".txt", FileFormat:=xlText
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[JLGWhiz]

For Each xWs In ThisWorkbook.Sheets
    If WS.Name <> "Customized" And WS.Name <> "Create Sheets" And WS.Name <> "GF ACCTS with master and test" Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".txt", FileFormat:=xlText
        Application.ActiveWorkbook.Close False
    End If
Next

 

[GaryG9595]

For Each xWs In ThisWorkbook.Sheets
    If WS.Name <> "Customized" And WS.Name <> "Create Sheets" And WS.Name <> "GF ACCTS with master and test" Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".txt", FileFormat:=xlText
        Application.ActiveWorkbook.Close False
    End If
Next

Thanks,
I'm getting a run-time error '424 Object required. Should WS.Name be xWS.Name?
Sub Test()

For Each xWs In ThisWorkbook.Sheets
If WS.Name <> "Customized" And WS.Name <> "Create Sheets" And WS.Name <> "GF ACCTS with master and test" Then
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".txt", FileFormat:=xlText
Application.ActiveWorkbook.Close False
End If
Next

End Sub

I also tried, same error.

Sub Test()

Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
If WS.Name <> "Customized" And WS.Name <> "Create Sheets" And WS.Name <> "GF ACCTS with master and test" Then
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".txt", FileFormat:=xlText
Application.ActiveWorkbook.Close False
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[JLGWhiz]

Should WS.Name be xWS.Name?

Yes, I should have caught that.

For Each xWs In ThisWorkbook.Sheets
    If xWS.Name <> "Customized" And xWS.Name <> "Create Sheets" And xWS.Name <> "GF ACCTS with master and test" Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".txt", FileFormat:=xlText
        Application.ActiveWorkbook.Close False
    End If
Next

Please use the code tags when you post code. Simply highlight the code and click one of the code tag icons in the tool bar. that say 'Quick Wrap..." when you hover the pointer over them.

 

[GaryG9595]

Thank you, this worked perfectly.

Sub SplitbookTXT()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWS In ThisWorkbook.Sheets
If xWS.Name <> "Customized" And xWS.Name <> "Create Sheets" And xWS.Name <> "GF ACCTS with master and test" Then
xWS.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWS.Name & ".txt", FileFormat:=xlText
Application.ActiveWorkbook.Close False
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub