help! How can I divide 10 Worksheets to Indv.Books

  • Thread starter Thread starter manny
  • Start date Start date
M

manny

I need help Dividing 10 worksheets in a WB into individaul Workbooks. A
alternative to Move or Copy.

Thanks
 
Hi manny

Try this macro

Sub test()
Dim a As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
For a = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(a).Copy
Set wb = ActiveWorkbook
wb.SaveAs "C:\" & wb.Sheets(1).Name & ".xls"
wb.Close False
Set wb = Nothing
Next a
Application.ScreenUpdating = True
End Sub
 
Back
Top