Split worksheets in same workbook into new workbook

Hi,

I have around 50 worksheets and I want to create a separate workbook for every sheet I am trying to use the following code but its not working;

Sub Splitbook()
'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 & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

can any 1 help me on this.
I am using excel 2010

In what way doesn't it work?
Also please edit your post to include code tags.

The individual file saved doesn't have a format I have to open and save the each workbook as an excel file

Try

Please Login or Register  to view this content.

Thanks for the help

You're welcome