Try...

Sub SplitSheets2()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
'Copy to new workbook making it now the active workbook
wks.Copy
With ActiveWorkbook
.SaveAs ActiveWorkbook.Path & wks.Name & ".xls"
.Close
End With
Next
ActiveWorkbook.Close '//next workbook
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc