'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 & ".xls"
Application.ActiveWorkbook.Close False
next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Step 4:
Click the Run icon on the toolbar to run or press F5 on the keyboard to run the code.
When the code process is completed, open the original Excel file store and see each sheet file displayed here. Each sheet name is converted to each Excel file name so users can easily manage files. All formulas used in each sheet remain the same.
When opening the sheet file if there is a notification like that, click Yes to continue to open the content.
With just a simple operation, you get the sheet files in Excel quickly. All content on each sheet of Excel has not been changed.
I wish you all success!