VBA code adding sheets need to be modified

This is a vba code with an input box.if I run it and put a number then I will get the number of the sheets that I have put.the sheets will go before the active sheet.

Sub AddSheets()

Dim ShtCount As Integer, i As Integer

ShtCount = Application.InputBox("HOW MANY SHEETS DO YOU WANT TO ADD?", "NUMBER OF SHEETS", , , , , , 1)

If ShtCount = False Then
Exit Sub
Else
For i = 1 To ShtCount
Worksheets.Add
Next i
End If

End Sub

How can I modify the code so the sheets that will be added come after the active sheet?
Thank you in advance

Originally Posted by bebo021999

PHP Code: 

Worksheets.Add after:=activesheet 


worked perfectly.thank you very much

Originally Posted by beyond Excel

Hi kvemperor
You can shorten your code and avoid the For-Next loop as follows:

PHP Code: 

Sub AddSheets()
Dim ShtCount As Integer
ShtCount = Application.InputBox("HOW MANY SHEETS DO YOU WANT TO ADD?", "NUMBER OF SHEETS", , , , , , 1)
If ShtCount = 0 Then Exit Sub Else Worksheets.Add ActiveSheet, , ShtCount
End Sub 


thank you very much for your response .i am doing smth wrong?you code is not working.i did copy/paste

Originally Posted by beyond Excel

Without seeing your implementation, it's a bit hard to guess where you've gone wrong.

But compare yourself with what follows and comment:

Attachment 825410

\_________________/

thank you very much for you effort.in your sample is working ok but in mine it adds only one sheet ,whatever number i put.do you think it gets confused because of all the codes?

Originally Posted by beyond Excel

I did not suggest this:

Please Login or Register  to view this content.

Take a good look at my suggestion... Better copy...

hallo from sunny Greece.still same thing .only one sheet adds again unfortunately ,whatever number i put.but is ok.is working the previous code with the loop so no worries

Originally Posted by beyond Excel

Have you already realized what your 'small' but significant mistake is?...

no sorry

Originally Posted by beyond Excel

You seriously don't see the difference between:
If ShtCount = 0 Then Exit Sub Else Worksheets.Add ActiveSheet, , ShtCount

And this other:
If ShtCount = 0 Then Exit Sub Else Worksheets.Add ActiveSheet

No i didnt see it.my bad

Originally Posted by beyond Excel

Ok... Until next time.

thank you brother for all your effort