File Saving

[Gazza]

If i have a workbook with say 4 worksheets named Alpha Beta, Gamma & Delta

How can i set up a file saving routine that would produce from the original
file 4 files called

Alpha.xls
Beta.xls
Gamma.xls
Delta.xls

Each of the new workbooks would only have 1 worksheet - that which
corresponds to the worksheet of the same name from the origina workbook.

Cheers

Gazza

 

[Tom Ogilvy]

Dim sPath as String
Dim sh as Worksheet
sPath = Activeworkbook.Path
for each sh in ActiveWorkbook.Worksheets
sh.copy
activeworkbook.SaveAs sPath & "\" & sh.Name & _
".xls", xlNormal
activeworkbook.Close SaveChanges:=False
Next

 

[Ron de Bruin]

Another option
http://www.rondebruin.nl/copy6.htm

 

[Gazza]

Ron,

Impressed with your version too - especially the saving into a seperate
directory

Thanks very much

Gazza

 

[Gazza]

Tom,

Thanks for this - brilliant stuff worked like a charm

Gazza