Pages

Saturday, May 12, 2012

Merge Series ----- Save Each sheet of a workbook as new workbook

If you want to save each worksheet of a workbook as separate new workbook and then save the new workbook with sheet name.

Download Working File

Here is the code-

Option Explicit
Sub splitsheets()
Dim wk As Worksheet, wkb As Workbook
' loop through each worksheet
For Each wk In ThisWorkbook.Sheets
' save it in new workbook
wk.Copy
' save the new workbook with sheet name
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & wk.Name & ".xlsx"
' close the newly created workbook
ActiveWorkbook.Close
Next
End Sub

No comments:

Post a Comment