Spliting sheets of work book into separate spread sheet


CA Ramsai N (Fresher)     04 September 2013

CA Ramsai N
Fresher 
 61 likes  594 points

| My Other Post

1.Open workbook

2. press alt+F11>> Insert >> Module

3. Paste following text

Sub Splitbook()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs _
Filename:=MyPath & "\" & sht.Name & ".xls"
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub

5.Press  f5

6. Pre caution:: it would be better to keep that sheet in separate folder before splitting into 

 

Regards,

Ramsai

1 Like



Leave a reply

Your are not logged in . Please login to post replies

Click here to Login / Register  



Popular Discussion


view more »