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