Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in


 How to copy sheet and rename automatically in Excel?

In Excel, how could you copy a worksheet and rename it automatically without typing the name as usual? In this article, I will talk about how to copy a sheet one time or multiple times and give them specific names at once.

Copy a worksheet multiple times and rename them with increment tab names by using VBA code

Copy a worksheet multiple times and rename them with custom names by using Kutools for Excel

If you need to copy a worksheet multiple times, and give them series names, such as KTE-1, KTE-2, KTE-3, KTE-4…, the following VBA code can do you a favor.

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Copy a worksheet multiple times and rename at once:

Sub Create()
'Updateby Extendoffice 20160704
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Application.ScreenUpdating = True
End Sub

3. Then press F5 key to run this code, and a prompt box will remind you how many copies of the current worksheet that you want to copy, see screenshot:

doc rename copied sheets 1

4. Enter the number of copies into the popped dialog, and then click OK button, your current worksheet has been duplicated 5 copies and renamed with sequence name as following screenshot shown:

doc rename copied sheets 2

Note: In the above code, you can change the worksheet name text “KTE-” to your needed.

Maybe the above VBA codes are difficult for you to apply, here, I will introduce an easy tool- Kutools for Excel, with its Create Sequence Worksheets utility, you can achieve this task without any effort.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days. 

After installing Kutools for Excel, please do as follows:

1. Click Enterprise > Worksheet > Create Sequence Worksheets, see screenshot:

doc rename copied sheets 3

2. In the Create Sequence Worksheets dialog box:

(1.) Select the worksheet name that you want to copy from the Base Worksheet drop down list;

(2.) Then specify the number of worksheet that you want to copy under The number of create text box;

(3.) And then check Sequence Numbers under the Sheet names based on section;

(4.) At last, create the sequence worksheet names in the right pane that you want, see screenshot:

doc rename copied sheets 4

3. After finishing the settings, please click Ok button, and the specific worksheet has been copied multiple times and renamed based on your created sequence in a new workbook, see screenshot:

doc rename copied sheets 5

Click Free Download Kutools for Excel Now !

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ales · 1 years ago
    Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
  • To post as a guest, your comment is unpublished.
    Anonymous · 2 years ago
    Wow this saved a lot of time for me! Thank you!