Spliting sheets of work book into separate spread sheet

CA Ramsai N (Fresher)     04 September 2013

CA Ramsai N
 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
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 




1 Like

Leave a reply

Your are not logged in . Please login to post replies

Click here to Login / Register  

Popular Discussion

view more »