Macro save wsheets separate xls files error

I get a type mismatch?  13 Lines 2 and 5 are giving me errors? I am only 
familiar wirh Word and Access VBA.


If anyone can help please! Thanks



 1   Sub Make_New_Books()
 2  Dim w As Work***
 3   Application.ScreenUpdating = False
 4  Application.DisplayAlerts = False
 5   For Each w In ActiveWorkbook.Worksheets
 6  'In case user doesn't want every work***
 7   ' For Each W In Worksheets(Array("sheet1", "Sheet3", _
 8   ' "Sheet5", "sheet7"))
 9     w.Copy
 10   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & _
 11   "\" & w.Name
 12   ActiveWorkbook.Close+-*
 13   Next w
 14   Application.DisplayAlerts = True
 15   Application.ScreenUpdating = True

 16   End Sub