Thanks but this isn't quite what I want. I want to make all worksheets in 1 exisiting workbook into new workbooks - nothing to do with months.
Sub MoveSheetsToWorkbooks()
Dim Ws As Worksheet, strFilepath As String
strFilepath = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets 'loop through the worksheets
Ws.Copy 'and copy the sheet to a new workbook
ActiveWorkbook.SaveAs strFilepath & ActiveSheet.Name
ActiveWorkbook.Close False
Next
Application.ScreenUpdating = True
MsgBox "All Done", vbExclamation + vbOKOnly
End Sub