converting lot of microsoft worksheets to separate workbook

I have 300 worksheets in a workbook, now I want to convert
all the 300 worksheets into a separate, separate workbook
totall I should have 300 workbooks, please tell me the
shortcut method to do this,please reply to my mail,

Hi

With a macro you can do this

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:\Yourfolder" & wb.Sheets(1).Name & ".xls"
wb.Close False
Set wb = Nothing
Next a
Application.ScreenUpdating = True
End Sub

Possible problem can be

Copying Worksheet Programmatically Causes Run-Time Error 1004
http://support.microsoft.com/default...84&Product=xlw


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


"n.venkatasubramanian" wrote in message ...
I have 300 worksheets in a workbook, now I want to convert
all the 300 worksheets into a separate, separate workbook
totall I should have 300 workbooks, please tell me the
shortcut method to do this,please reply to my mail,