Wednesday 2 August 2017

How to Split Each Excel Sheet into Separate Files-Easy (Excel 2003-2016)

Sometime we deal with typical tasks, specially in MS Excel; its title hard to understand module and codes in excel, so the topic is how to split each excel worksheet into separate file without using any software or online, here I will shows you easy steps to do so..

1.       Open Excel File and press “Alt+F11”


2.       Click on “Insert” than click on “Module”


3.       Copy & paste below code:

            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   
         
          Click on “Run” icon

That’s it your each worksheet will be converted into separate excel file


Watch video tutorial… Please like, share & subscribe