Changing macro that multiply current sheet

[nikobelic1]

Hi

I have ~100 sheets named as 1, 2, 3, 4,...

Currently I use this macro to create copy of sheet "1" to 100 if I enter number 99 in InputBox

Sub Sheet_multiply)

Dim x As Long
x = InputBox("Enter number of times to copy "1"")

For numtimes = 1 To x
   Sheets("1").Copy , Sheets(Sheets.Count)
   ActiveSheet.Name = numtimes + 1
Next

End Sub

Now I have problem with changing this macro to copy active sheet name (lets say sheet "54") because I need to change macro every time. Is there way to macro use active sheet name and make copies untile number entered in InputBox+1 ?