Split an Excel workbook into multiple files

Sometimes you've got one workbook with lots of sheets when what you really want is lots of workbooks with one sheet each. This video shows how to split them with a dash of VBA. You can see more videos and get the code at my site (https://www.learnexcel.video/blog/2017/6/22/split-a-workbook-with-multiple-sheets-into-multiple-workbooks) or use the code snippet below: Sub Splitziez() Dim strPath As String strPath = "Location of your file" For Each sheetz0r In ThisWorkbook.Sheets sheetz0r.Copy Application.ActiveWorkbook.SaveAs Filename:=strPath & "\" & sheetz0r.Name & ".xlsx" Application.ActiveWorkbook.Close False Next End Sub