$$Excel-Macros$$ Macro - To split each spreadsheets as a new workbook

Hi Friends, Need a macros to split each spreadsheet into a different workbook and save as the tab name. For Example : Split Apple tab only from current workbook and save it as new workbook , file name should be tab name . Please find atatchment. Regards, Santhosh -- Join official Facebook

Re: $$Excel-Macros$$ Macro - To split each spreadsheets as a new workbook

Hi Sandhosh. Sub Splitsht() ChDir C:\Documents and Settings\user\Desktop\folder Dim wrksht As Worksheet For Each wrksht In ThisWorkbook.Worksheets wrksht.Select wrksht.Copy ActiveWorkbook.SaveAs Filename:=wrksht.Name .xlsx ActiveWindow.Close Next End Sub Thanks

Re: $$Excel-Macros$$ Macro - To split each spreadsheets as a new workbook

- From: Santhosh Kumar M K mks@gmail.com To: excel-macros@googlegroups.com Sent: Fri, February 1, 2013 12:45:12 PM Subject: $$Excel-Macros$$ Macro - To split each spreadsheets as a new workbook Hi Friends, Need a macros to split each spreadsheet into a different workbook

Re: $$Excel-Macros$$ Macro - To split each spreadsheets as a new workbook

Thanks a lot ... Vijay On Fri, Feb 1, 2013 at 11:30 PM, vijayajith VA vijayajith...@gmail.comwrote: Hi Sandhosh. Sub Splitsht() ChDir C:\Documents and Settings\user\Desktop\folder Dim wrksht As Worksheet For Each wrksht In ThisWorkbook.Worksheets wrksht.Select