Creating a new file for each excel worksheet

  • Thread starter Thread starter sherry
  • Start date Start date
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 !
 
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.
 
try this
Sub splitsheets()
For Each ws In Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:="C:\yourfoldername\" & ws.Name & ".xls"
ActiveWorkbook.Close
Next
End Sub
 
Back
Top