Channel | Publish Date | Thumbnail & View Count | Actions |
---|---|---|---|
| 2019-10-12 14:30:03 | ![]() 394,024 Views |
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
Please take the opportunity to connect and share this video with your friends and family if you find it useful.