$$Excel-Macros$$ Re: How to extract sheet from many excel sheets

2012-12-31 Thread Prince
Hi Maulik, Please cut and paste this code.I hpe this may be helfull for you. Sub CreatWorkbook() Dim wks As Worksheet Dim wbk As Workbook Dim intCtr As Integer intCtr = 1 For Each wks In ThisWorkbook.Worksheets If wks.Name <> "test" Then Set w

$$Excel-Macros$$ Re: How to extract sheet from many excel sheets

2012-12-30 Thread Lalit Mohan Pandey
Hi Maulik, May be below code help you *Sub Test_ExtractData()* * * *Dim wksSht As Worksheet* *Const strFileSavePath As String = "C:\"* ** *For Each wksSht In ThisWorkbook.Worksheets* *With Workbooks.Add(1)* *With .Worksheets(1)* *wksS