Split Excel Worksheets to Individual Files

This video shows how to take an Excel workbook and break down the sheets within it to their own workbooks/individual Excel files.

Full detail on my blog here :
https://chrisbryson.wordpress.com/2013/05/21/split-excel-worksheets-to-individual-files/

VBA Script :

Sub Splitbook()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs _
Filename:=MyPath & "\" & sht.Name & ".xls"
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub