Thread: Worksheet saved out as new workbook
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
  
Posts: 11,123
Default Worksheet saved out as new workbook
See this page tom
http://www.rondebruin.nl/copy6.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"TOMB" wrote in message ...
I have a workbook which contains about 15 worksheets. I update the data for
the workbook and now need to save the individual sheets as separate workbooks
using the sheet names as the file name.

How do I loop through each worksheet and save them as separate workbooks
using the sheet 'tab' names as the file names?

Sub SaveSheet()

ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\Data\AMReports\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close SaveChanges:=False

End Sub

Thanks - -TB- -
Reply With QuoteReply With Quote