software

I have a file with about 25 tabs (sheets) in it, but I want to save each tab
as a separate file amp; name the file the tab name. Is there a way to do this
automatically, or will I have to manually move each sheet into a new file amp;
save it?

Hi becaboo77

Try this macro
www.rondebruin.nl/copy6.htm

--
Regards Ron de Bruin
www.rondebruin.nlquot;becaboo77quot; gt; wrote in message ...
gt;I have a file with about 25 tabs (sheets) in it, but I want to save each tab
gt; as a separate file amp; name the file the tab name. Is there a way to do this
gt; automatically, or will I have to manually move each sheet into a new file amp;
gt; save it?
Try this, boo: vbaexpress.com/kb/getarticle.php?kb_id=448
************
Hope it helps!
Anne Troy
www.OfficeArticles.com

quot;becaboo77quot; gt; wrote in message
...
gt;I have a file with about 25 tabs (sheets) in it, but I want to save each
gt;tab
gt; as a separate file amp; name the file the tab name. Is there a way to do
gt; this
gt; automatically, or will I have to manually move each sheet into a new file
gt; amp;
gt; save it?
Option Explicit
Sub testme()
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:=quot;C:\temp\quot; amp; .Name
.Parent.Close savechanges:=False
End With
Next wks
End Sub

Adjust the path to what you want.

becaboo77 wrote:
gt;
gt; I have a file with about 25 tabs (sheets) in it, but I want to save each tab
gt; as a separate file amp; name the file the tab name. Is there a way to do this
gt; automatically, or will I have to manually move each sheet into a new file amp;
gt; save it?

--

Dave Peterson

Sub SheetsToSepBooks()
Set shOrig = Sheets(1).name
For Each sh In ActriveWorkbook.Worksheets
sh.Copy
ActiveWorkbok.SaveAs FileName:= quot;C:\Samples\quot; amp; sh.name amp; quot;.xlsquot;
ActiveWorkbook.Close
Next sh
shOrig.Activate
End Sub

HTHquot;becaboo77quot; wrote:

gt; I have a file with about 25 tabs (sheets) in it, but I want to save each tab
gt; as a separate file amp; name the file the tab name. Is there a way to do this
gt; automatically, or will I have to manually move each sheet into a new file amp;
gt; save it?