Dear Ron:

Beautiful! Just what I needed. Now another question:

I would love to produce a module that would bring up a dialog that would
allow the user to browse to a file of his choice, specify a destination of
his choice, and then run this code on the workbook so specified and save the
individual files in the location specified.

How could I creeate such a module such that it is independent of a
particular worksheet? (I placed your code in the worksheet I am currently
working on, but would like the code to be standalone for this more generic
application). Thanks for any suggestions, and God bless.

Chaplain Doug

"Ron de Bruin" wrote:

Hi

Try this one that save the files in "C:\" with the sheet name

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



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


"Chaplain Doug" wrote in message ...
Excel 2003. I have multiple tabs (sheets?) in my workbook. I would like to
create an individual file for each sheet. How may I do this? I need to do
this regularly, so an automated procedure (versus manually cutting and
pasting) would be greatly appreciated. Thanks.