Copiar masivamente una hoja de calculo

excelmasivo

Sub Macro2()

    Dim x As Integer
    
    x = InputBox("Enter number of times to copy Sheet1")
    For numtimes = 1 To x
        'Loop by using x as the index number to make x number copies.
        'Replace "Sheet1" with the name of the sheet to be copied.
        ActiveWorkbook.Sheets("1").Copy _
           After:=ActiveWorkbook.Sheets("1")
    Next
End Sub