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

Another one
http://www.rondebruin.nl/copy6.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"H.A. de Wilde" <[email protected]> wrote in message
news:[email protected]...
>
> Sub Macro1()
> '
> Dim WS As Worksheet
>
> For Each WS In ActiveWorkbook.Worksheets
> WS.Copy
> ActiveWorkbook.SaveAs ActiveSheet.Name
> Next WS
> '
> End Sub
>
>
> --
> H.A. de Wilde
> ------------------------------------------------------------------------
> H.A. de Wilde's Profile: http://www.excelforum.com/member.php...o&userid=30679
> View this thread: http://www.excelforum.com/showthread...hreadid=538811
>