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

[manny]

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

Thanks

 

[Ron de Bruin]

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

 

[manny]

That was exactly was I was trying to do, thank you very much