Changing macro that multiply current sheet

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

Please Login or Register  to view this content.

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 ?

Please Login or Register  to view this content.

bsalv

Attachment 760047

@jolivanes @bsalv

Thats works but now problem is this part of code

Please Login or Register  to view this content.

If I leave this and try to run VBA from active sheet "10" I get new sheets from 2-9 and error when trying to create sheet with name 10.

Can I use somehow Sheets(ActiveSheet.Name) as value instead number "1" in this part of code ?

First one is good but with new problem.

Please Login or Register  to view this content.

This part count sheet index but there is few hidden sheets so one solution is to add

Please Login or Register  to view this content.

or is there any way to covert ActiveSheet.Name to value and use that value in line above ?

Or you could try like so also.

Please Login or Register  to view this content.