Save sheet?

[Heine]

How can i save 200 sheets in an excel file as 200 excel file with name of
sheet as file name. Due to the number of sheets it is needed to be done
automaticly.

 

[Bob Phillips]

Sub SaveSheets()
Dim i As Long

With ThisWorkbook
For i = 1 To .Worksheets.Count
.Worksheets(i).Copy
ActiveWorkbook.SaveAs Filename:=Worksheets(i).Name & ".xls"
Next i
End With

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Ron de Bruin]

Bob's code not close the new workbooks.
Maybe what you want ?

Here is a example that create a folder with the new workbooks
http://www.rondebruin.nl/copy6.htm

 

[Bob Phillips]

Easily fixed

Sub SaveSheets()
Dim i As Long

With ThisWorkbook
For i = 1 To .Worksheets.Count
.Worksheets(i).Copy
ActiveWorkbook.SaveAs Filename:=Worksheets(i).Name & ".xls"
Activeworkbook.Close
Next i
End With

End Sub



--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Ron de Bruin]

Hi Bob

Easily fixed

I know<g>

 

[Bob Phillips]

Hi Ron,

I know you know. I read your page

Bob

 

[Heine]

Perfect - and a great thanks from Norway!!

Bob's code not close the new workbooks.
Maybe what you want ?

Here is a example that create a folder with the new workbooks
http://www.rondebruin.nl/copy6.htm

 

[Heine]

Well - it looks like you both know - anyway, thanks for great support in
short time notice. I had a bad feeling i had to manually cut, past, name and
save them. Would have taken loooong time.