How to 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.
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