converting lot of microsoft worksheets to separate workbook

  • Thread starter n.venkatasubramanian
  • Start date
N

n.venkatasubramanian

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,
 
R

Ron de Bruin

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.aspx?scid=kb;en-us;210684&Product=xlw
 
Top