Hi Vijay,
could you Please change the code. File name should come like this
"KAM Tracker [tab name]"
Regards,
Santhosh
On Fri, Feb 1, 2013 at 11:30 PM, vijayajith VA wrote:
> Hi Sandhosh.
>
> Sub Splitsht()
>
> ChDir "C:\Documents and Settings\user\Desktop\folder"
>
> Dim wrksht As Worksheet
Thanks a lot ... Vijay
On Fri, Feb 1, 2013 at 11:30 PM, vijayajith VA wrote:
> 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
> A
ohn Wesley
-
From: Santhosh Kumar M K
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 and sa
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
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