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


--
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

Answer to Saving worksheets as individual workbooks using code?
 

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


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


"H.A. de Wilde" wrote in message
news:H.A.de.Wilde.27a5eq_1146741004.3843@excelforu m-nospam.com...

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