create multiple workbooks based on worksheets (VBA)

Here is a code that will create separate workbooks based on tabs in the current workbook.

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

source:  http://www.pcreview.co.uk/forums/code-split-worksheets-into-seperat-workbooks-t3773978.html