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
Subscribe to this YouTube channel to get updates on Excel Tips and Excel Tutorials videos – https://www.youtube.com/c/trumpexcel
This YouTube channel is managed by Sumit Bansal (who also runs the TrumpExcel website). This channel is meant for people who want to learn Excel. It covers a lot of Excel basics and advanced Excel topics such as Excel Formulas, Functions, Pivot Table, Shortcuts, Excel VBA, Macros, Excel Dashboards, Excel Charts, Conditional Formatting, Power Query, etc. Please subscribe to this channel to be the first to know when new Excel tutorials come out.
You can find a lot of useful Excel resources on the following site: https://trumpexcel.com/
#Excel #ExcelTips #Excelin2Minutes