How to Split Sheets into Separate Workbooks in Excel (4 Methods)

When you have a larger dataset covering numerous working sheets, you may need to split those worksheets into dedicated workbooks for analyzing extensively. In this article, I’ll discuss 4 methods including VBA code to split sheets into separate workbooks in Excel with the necessary explanation.


Download Practice Workbook


4 Methods to Split Sheets into Separate Workbooks in Excel

Let’s introduce today’s dataset. Here, Selling Information of Items is provided for 6 months across different sheets. The following screenshot (Sheet name: ‘January’) depicts the information in January. Now, I’m going to show how you can extract the worksheets as workbooks based on your purposes.

Dataset

Let’s explore the methods.


1. Creating Separate Workbooks Manually

If you want to create one or more distinct workbooks and skip any complexity, you may betake this method.

➜ Initially, select the entire dataset and copy (just press CTRL + C).

Creating Workbook Manually

➜ Later, go to File > New or File > Home (Blank workbook) to create a new workbook.

Creating Workbook Manually

➜ Now, paste the copied data (by pressing CTRL + V) and save the file as Excel Workbook (*.xlsx). And rename the workbook as January.

Excel Split Sheets into Separate Workbooks Creating Workbook Manually

Here’s I want to share a simple trick. You may check the name of the workbook using the following formula which is mainly the combination of the MID, CELL, and FIND functions.

=MID(CELL("filename",B5),FIND("[",CELL("filename",B5))+1,FIND("]", CELL("filename",B5))-FIND("[",CELL("filename",B5))-1)

Here, B5 is the starting cell of the Order ID. However, you may insert any cell within the workbook.

In the above screenshot, I used the formula in the G5 cell and found that the workbook is January (created this a while ago).

Read More: How to Separate Sheets in Excel (6 Effective Ways)


2. Right-Clicking over Sheet Tab to Split Sheets into Workbooks

But it’s not fruitful to use the simplest copy-pasting method. Besides, when you need to split some sheets into a specific workbook. For example, you may want to create a separate workbook containing four working sheets (e.g. January, February, March, and April).

➜ Firstly, go to the Sheet tab (located at the lower part of the working sheet). Then, select the specified working sheet holding the CTRL key simultaneously.

➜ After executing that, choose the Move or Copy… from the Context Menu.

Right-clicking over Sheet Tab

➜ Subsequently, pick (new book) under the drop-down list of the To book option and also check the box before the Create a copy option.

Right-clicking over Sheet Tab

After saving the workbook as Workbook2, you’ll get the following output.

Right-clicking over Sheet Tab

Read More: How to Split Excel Sheet into Multiple Files (3 Quick Methods)


Similar Readings


3. Splitting Sheets into an Existing Workbook

Furthermore, you can split any sheet into an existing workbook instead of creating a new workbook. For instance, you want to extract the sheet namely May to the Workbook2 (previously created workbook).

➜ Go to the Sheet tab and choose the Move or Copy…option (as shown in the second method) while keeping the cursor over the May sheet.

Splitting a Worksheet to an Existing Workbook

➜ Later, pick (Workbook2.xlsx) under the drop-down list of the To book option. In addition, choose (move to end) under the Before sheet option. And also check the box before the Create a copy option.

Splitting a Worksheet to an Existing Workbook

Eventually, your copied sheet is added to Workbook2 as shown in the following image.

Splitting a Worksheet to an Existing Workbook

Read More: How to Split Excel Sheet into Multiple Worksheets (3 Methods)


4. Using VBA Code to Split Sheets into Separate Workbooks

How would you feel if you are to able to split every sheet in your workbook into separate workbooks directly? Sounds interesting! Exactly, you can do that.

The following screenshot displays the Split Sheets into Workbooks. In this folder, you need to create separate workbooks.

Excel Split Sheets into Separate Workbooks Using VBA Code

Before doing that you need to create a module to insert the VBA code.

➜ Firstly, open a module by clicking Developer > Visual Basic (or press ALT + F11).

How to Insert VBA Code

➜ Secondly, go to Insert > Module.

How to Insert VBA Code

Then, copy the following code into the newly created module.

Sub SplitShts()
Dim CurrentWb As Workbook
Dim NewWb As Workbook
Dim Sht As Worksheet
Dim Filename As String

    Set CurrentWb = ThisWorkbook
    For Each Sht In CurrentWb.Worksheets
        Filename = CurrentWb.Path & "/" & Sht.Name & ".xlsx"
        Sht.Copy
        Set NewWb = ActiveWorkbook
        NewWb.SaveAs Filename
        NewWb.Close
    Next Sht
End Sub

Excel Split Sheets into Separate Workbooks Using VBA Code

Code Explanation:

  • In the above code, I declared CurrentWb(this workbook), NewWb(new workbook) as Workbook, Sht as Worksheet, and Filename as String type first.
  • Then, I set CurrentWb with the ThisWorkbook property. After that, I ran For…Next statement to split the sheets into separate workbooks.
  • Inside the loop, I also defined the Filename with the Path property (to represent the path of the active workbook), the Sht.Name (to return the sheet name), and .xlsx which is the default extension of any Excel file.
  • Subsequently, I used the Copy method to copy the sheet. Lastly, I set the NewWb and close the statement.

After running the code (keyboard short is F5), you’ll get the following output (separated workbooks) at the path of your previous workbook.

Excel Split Sheets into Separate Workbooks Using VBA Code

However, you may also split worksheets based on the column using VBA.


Conclusion

That’s all for today. I firmly believe that from now you can spit the sheets into separate workbooks in Excel accordingly to your requirement. Anyway, don’t forget to share your thoughts.

Explore Exceldemy!


Related Articles

Md. Abdul Kader

Md. Abdul Kader

Hi! I am Abdul Kader and presently working as ‘Excel & VBA Content Developer’ at Exceldemy. I publish my articles related to Microsoft Excel here. In 2019, I completed my graduation in Urban and Regional Planning from Chittagong University of Engineering and Technology. Having extreme eagerness to learn, I want to develop my skills and capabilities higher.

2 Comments
  1. With the VBA, is it possible to extend the code to rename the sheets in the new workbooks to “Sheet1”?
    It would be easier for me to automate loading the data for processing if the sheets do not have unique names.

    • Hello P.KUIPERS,
      Thank you for your question. The ExcelDemy team has created an Excel file with the solution to your question that you may download from the link below.
      Rename_Sheets.xlsm

      You can download the practice files from the link below
      Rename_Sheets_Do_Yourself.xlsm

      Otherwise, you can just follow the steps below.

      In order to rename the sheets in a sequential way, you can use another VBA Macro. So, let’s see the step below.

      Step: 1
      a. Firstly, navigate to the Developer tab >> click the Visual Basic button. This opens the Visual Basic Editor in a new window.
      b. Next, go to the Insert tab >> select Module.
      For your ease of reference, you can copy the code from here and paste it into the window.

      Sub Rename_Multiple_Sheets()

      Alphabets = Array(“A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”)

      Days = Array(“Monday”, “Tuesday”, “Wednesday”, “Thursday”, “Friday”, “Saturday”, “Sunday”)

      Dim Weekdays(5) As String

      For i = 0 To 4
      Weekdays(i) = Days(i)
      Next i

      Months = Array(“January”, “February”, “March”, “April”, “May”, “June”, “July”, “August”, “September”, “October”, “November”, “December”)

      Old_Names = InputBox(“Enter the Names of the Worksheets to Change (Separate them be Commas).” + vbNewLine + “OR” + vbNewLine + “Enter ALL to change all the worksheets.”)

      If Old_Names = “ALL” Then
      Dim Old_Sheets() As String
      ReDim Old_Sheets(Sheets.Count – 1)
      For i = 0 To Sheets.Count – 1
      Old_Sheets(i) = Sheets(i + 1).Name
      Next i
      Else
      Old_Sheets = Split(Old_Names, “,”)
      End If

      Dim Used_Names() As String

      ReDim Used_Names(0)

      Dim Sign As Integer

      Sequential_Or_Random = Int(InputBox(“Enter 1 to Change the Worksheet Names in a Sequential Way: ” + vbNewLine + “OR” + vbNewLine + “Enter 2 to Change the Worksheet Names in a Random Way: “))

      If Sequential_Or_Random = 1 Then

      Series = Int(InputBox(“Enter 1 to Change the Names to a Series of Numbers: ” + vbNewLine + “Enter 2 to Change the Names to a Series of ALphabets: ” + vbNewLine + “Enter 3 to Change the Names to a Series of Days: ” + vbNewLine + “Enter 4 to Change the Names to a Series of Weekdays: ” + vbNewLine + “Enter 5 to Change the Names to a Series of Months: “))

      If Series = 1 Then
      Prefix = InputBox(“Enter the Prefix before the Numbers: “)
      First_Number = Int(InputBox(“Enter the First Number: “))
      Increment = Int(InputBox(“Enter the Increment: “))
      For i = 0 To UBound(Old_Sheets)
      Sheets(Old_Sheets(i)).Name = Prefix + Str(First_Number + Increment * (i))
      Next i

      ElseIf Series = 2 Then
      Prefix = InputBox(“Enter the Prefix before the Letters: “)
      First_Letter = InputBox(“Enter the First Letter: : “)
      Increment = Int(InputBox(“Enter the Increment: “))
      Dim Case_Identifier As String
      For i = 0 To UBound(Alphabets)
      If Alphabets(i) = First_Letter Then
      First_Letter_Number = i
      Case_Identifier = “U”
      Exit For
      ElseIf LCase(Alphabets(i)) = First_Letter Then
      First_Letter_Number = i
      Case_Identifier = “L”
      Exit For
      End If
      Next i
      For i = 0 To UBound(Old_Sheets)
      Sign = 0
      For j = 0 To UBound(Used_Names)
      If Alphabets((First_Letter_Number + (Increment * i)) Mod 26) = Used_Names(j) Then
      Sign = Sign + 1
      End If
      Next j
      If Sign = 0 Then
      If Case_Identifier = “U” Then
      Sheets(Old_Sheets(i)).Name = Prefix + Alphabets((First_Letter_Number + (Increment * i)) Mod 26)
      Else
      Sheets(Old_Sheets(i)).Name = Prefix + LCase(Alphabets((First_Letter_Number + (Increment * i)) Mod 26))
      End If
      Else
      If Case_Identifier = “U” Then
      Sheets(Old_Sheets(i)).Name = Prefix + Alphabets((First_Letter_Number + (Increment * i)) Mod 26) + ” (” + Str(Sign) + “)”
      Else
      Sheets(Old_Sheets(i)).Name = Prefix + LCase(Alphabets((First_Letter_Number + (Increment * i)) Mod 26)) + ” (” + Str(Sign) + “)”
      End If
      End If
      ReDim Preserve Used_Names(i)
      Used_Names(i) = Alphabets((First_Letter_Number + (Increment * i)) Mod 26)
      Next i

      ElseIf Series = 3 Then
      First_Day = LCase(InputBox(“Enter the First Day: : “))
      Increment = Int(InputBox(“Enter the Increment: “))
      For i = 0 To UBound(Days)
      If LCase(Days(i)) = First_Day Then
      First_Day_Number = i
      Exit For
      End If
      Next i
      For i = 0 To UBound(Old_Sheets)
      Sign = 0
      For j = 0 To UBound(Used_Names)
      If Days((First_Day_Number + (Increment * i)) Mod 7) = Used_Names(j) Then
      Sign = Sign + 1
      End If
      Next j
      If Sign = 0 Then
      Sheets(Old_Sheets(i)).Name = Days((First_Day_Number + (Increment * i)) Mod 7)
      Else
      Sheets(Old_Sheets(i)).Name = Days((First_Day_Number + (Increment * i)) Mod 7) + ” (” + Str(Sign) + “)”
      End If
      ReDim Preserve Used_Names(i)
      Used_Names(i) = Days((First_Day_Number + (Increment * i)) Mod 7)
      Next i

      ElseIf Series = 4 Then
      First_Weekday = LCase(InputBox(“Enter the First Day: : “))
      Increment = Int(InputBox(“Enter the Increment: “))
      For i = 0 To UBound(Weekdays)
      If LCase(Weekdays(i)) = First_Weekday Then
      First_Weekday_Number = i
      Exit For
      End If
      Next i
      For i = 0 To UBound(Old_Sheets)
      Sign = 0
      For j = 0 To UBound(Used_Names)
      If Weekdays((First_Weekday_Number + (Increment * i)) Mod 5) = Used_Names(j) Then
      Sign = Sign + 1
      End If
      Next j
      If Sign = 0 Then
      Sheets(Old_Sheets(i)).Name = Weekdays((First_Weekday_Number + (Increment * i)) Mod 5)
      Else
      Sheets(Old_Sheets(i)).Name = Weekdays((First_Weekday_Number + (Increment * i)) Mod 5) + ” (” + Str(Sign) + “)”
      End If
      ReDim Preserve Used_Names(i)
      Used_Names(i) = Weekdays((First_Weekday_Number + (Increment * i)) Mod 5)
      Next i

      ElseIf Series = 5 Then
      First_Month = LCase(InputBox(“Enter the First Month: “))
      Increment = Int(InputBox(“Enter the Increment: “))
      For i = 0 To UBound(Months)
      If LCase(Months(i)) = First_Month Then
      First_Month_Number = i
      Exit For
      End If
      Next i
      For i = 0 To UBound(Old_Sheets)
      Sign = 0
      For j = 0 To UBound(Used_Names)
      If Months((First_Month_Number + (Increment * i)) Mod 12) = Used_Names(j) Then
      Sign = Sign + 1
      End If
      Next j
      If Sign = 0 Then
      Sheets(Old_Sheets(i)).Name = Months((First_Month_Number + (Increment * i)) Mod 12)
      Else
      Sheets(Old_Sheets(i)).Name = Months((First_Month_Number + (Increment * i)) Mod 12) + ” (” + Str(Sign) + “)”
      End If
      ReDim Preserve Used_Names(i)
      Used_Names(i) = Months((First_Month_Number + (Increment * i)) Mod 12)
      Next i
      End If

      ElseIf Sequential_Or_Random = 2 Then
      New_Names = InputBox(“Enter the New Names (Separate them by Commas): “)
      New_Sheets = Split(New_Names, “,”)
      For i = 0 To UBound(Old_Sheets)
      Sign = 0
      For j = 0 To UBound(Used_Names)
      If New_Sheets(i) = Used_Names(j) Then
      Sign = Sign + 1
      End If
      Next j
      If Sign = 0 Then
      Sheets(Old_Sheets(i)).Name = New_Sheets(i)
      Used_Names(Count) = New_Sheets(i)
      Count = Count + 1
      Else
      Sheets(Old_Sheets(i)).Name = New_Sheets(i) + ” (” + Str(Sign) + “)”
      End If
      ReDim Preserve Used_Names(i + 1)
      Used_Names(i + 1) = New_Sheets(i)
      Next i
      End If

      End Sub

      Step: 2
      a. Secondly, close the Visual Basic Editor >> in the top Ribbon, click the Macros button >> Now, select the Rename_Multiple_Sheets Macro and press Run.
      b. This opens up a few input boxes. The inputs are described in the step below therefore just follow these steps.

      Step: 3
      a. The first Input Box will ask you to enter the name of the sheets that you want to change. Since you want to rename your worksheets to Sheet1, Sheet2, etc. you can type in ALL.
      b. The second Input Box will ask you whether you change the sheet names in a sequential way or in a random way. In this case, you enter 1.
      c. If you go for a sequential way, the third Input Box will ask for a series of values from the options below. Now, enter 1 for a series of Numbers (1, 2, 3, etc.)
      d. Next, enter a Prefix before the numbers, for instance, “Sheet”.
      e. Then, give the Starting Number, in this case, 1.
      f. Lastly, provide the Increment for the numbers, for example, you can choose 1.
      Voila! All your sheets are numbered serially as Sheet 1, Sheet 2, etc.
      If you wish you can learn more about this VBA Code in this article.

Leave a reply

ExcelDemy
Logo