Split Worksheets of Excel Sheet

STEP-01:
Press ALT+F11

Insert->Module

STEP-02:
insert following line of codes in the space and click on the Run/ Press F5

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 & ".csv", FileFormat:=xlCSVMSDOS

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub