Separate Worksheets 1

[genuineblonde]

I have a worksheet file with 68 sheets. Can anyone suggest an automated way to write each worksheet to a separate file named the same as the worksheet.

 

[SkipVought]

Hi,
Heres a way...

Sub SaveEachSheet()
    For Each Worksheet In Worksheets
        Worksheet.Copy
        With ActiveWorkbook
            .SaveAs ActiveSheet.Name & ".xls"
            .Close
        End With
   Next
End Sub

Hope this helps Skip,
metzgsk@voughtaircraft.com