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


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"sherry" wrote in message
...
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