Answer to Saving worksheets as individual workbooks using code?

Sub Macro1()
'
Dim WS As Worksheet

For Each WS In ActiveWorkbook.Worksheets
WS.Copy
ActiveWorkbook.SaveAs ActiveSheet.Name
Next WS
'
End Sub