Creating a new file for each excel worksheet

S

sherry

I have an excel file with many worksheets (tabs). I now need each sheet to
be its own file with its own name. Is there any way to just "right click" on
the worksheet and paste it into a new file? Or, do I have to do it the long
way, and open each sheet, and copy the cells before pasting into the new
file. I have a lot of them! Thanks !
 
S

Stephen

sherry said:
I have an excel file with many worksheets (tabs). I now need each sheet to
be its own file with its own name. Is there any way to just "right click"
on
the worksheet and paste it into a new file? Or, do I have to do it the
long
way, and open each sheet, and copy the cells before pasting into the new
file. I have a lot of them! Thanks !
Click to expand...

You can right-click the worksheet tab and use "Move or Copy". This gives you
the option of moving (or copying) the worksheet to another workbook.

The alternative is to open the original workbook, delete all worksheets
except one, and use "Save As" to save the remaining worksheet as a new
workbook.
 
D

Don Guillett

try this
Sub splitsheets()
For Each ws In Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:="C:\yourfoldername\" & ws.Name & ".xls"
ActiveWorkbook.Close
Next
End Sub
 
Top