Insert Desired count of new worksheets

I've got a macro that i think should be working, but it's not working the way I intend. What I want it to do is ask how many sheets need to be inserted, then take the input and insert that many sheets.

It asks the question, but it only inserts one sheet, and I don't understand why. I've tried DIMming "Count" as Long, as a Range, and as an Integer, with no effect other than an error on "Range". It works the same just doing "DIM Count". I'd appreciate some help on this one.

Thanks,
John

Please Login or Register  to view this content.

You are only issuing 1 worksheets.add command, hence you only get one sheet.

You are not using the information in the Count variable to output more than 1 sheet.

Please Login or Register  to view this content.

Try this

Please Login or Register  to view this content.

As everybody has pointed out your code did not use the Count variable.

I think you are confused about what the use of Count in this line is doing.
Which is to position the newly added worksheet after the last worksheet.

Please Login or Register  to view this content.

Roy and I used a loop to add the correct number of sheets. But as watersev's code shows a loop is not required as there is a parameter to define the number of sheets to add.

The After parameter does do something. It tells the method after which sheet then newly added one should be placed.

The .worksheets(.worksheets.count) part identifies that sheet.

.worksheets.count will return the index number of worksheets currently in the workbook. That value is then used to index the worksheets collection.

In case it's clearer, imagine specifically that you already have 5 sheets - then the code is:

Please Login or Register  to view this content.

which is:

Please Login or Register  to view this content.

i.e. add the sheet after the 5th sheet.

Correct.