Replicate worksht 20 times in workbook

[joanong]

Hi,
I have a worksheet which I would need to replicate 20 times in the workbook. Is there a way I can do it so that I don't have to right-click and copy worksheet manually for 20 times?

Many thanks. :wink:

 

[goblin]

Put the code into a module (ALT-F11, insert module, paste code in module)

Go to the sheet you want to copy and run the macro.

Sub CopySheet()
    Dim sh As Worksheet
    Dim i As Long
    Set sh = ActiveSheet
    For i = 1 To 20 Step 1
        sh.Copy before:=sh
    Next
End Sub

 

[Bruno_x]

1) press CTRL while you drag the tab of the worksheet to the right (or left)
:wink:
2) if there are 5 sheets : select sheet1, then hold the SHIFT and select sheet5, (sheet 1->5 will be selected) hold CTRL + drag the tab of sheet1 to the right or left. Result : you will have 10 sheets... with only one copy-action