How to Split Each Excel Sheet Into a Separate File

In this video, I will show you how to split each worksheet in Excel into a separate Excel file/workbook.

Below is the VBA code used in the video:

'Code Created by Sumit Bansal from TrumpExcel.com
Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

To use this code, you need to save the Excel workbook (from which you want to split the worksheets) in the same folder where you want the individual files.

This video is a part of my 'Excel is two-minute' series, where I share simple and quick tips to help you speed up your work and be more efficient


Free Excel Course - https://trumpexcel.com/learn-excel/
Paid Online Training - https://trumpexcel.com/excel-training/
Best Excel Books: https://trumpexcel.com/best-excel-books/

⚙️ Gear I Recommend:
Camera - https://amzn.to/3bmHko7
Screen Recorder - techsmith.z6rjha.net/26D9Q
USB Mic - https://amzn.to/2uzhVHd
Wireless Mic: https://amzn.to/3blQ8uk
Lighting - https://amzn.to/2uxOxRv

Subscribe to get awesome Excel Tips every week: https://www.youtube.com/user/trumpexcel?sub_confirmation=1

Note: Some of these links here are affiliate links!

#Excel #ExcelTips #ExcelTutorial