If I may....
Initilaze a variable and store an input. Loop the number of times the variable is. something like:
dim IntNumberOfSheets, CountofLoop
IntNumberOfSheets = InputBox("how many?", "how many?", 1, xpos, ypos)
for CountofLoop = 0 to IntNumberOfsheets - 1
I hope this helps.
FYI, the above code CANNOT be cut and pasted into your project, as it wil not run as written. It can be quickly, and easilty made to work, you just have to define the remaining variables, and write the Routine Doyourcodehere!
It's kind of fun to do the impossible! -Walter Elias Disney