A function to create new sheets

T

TSmoker

Is there a way to that I can enter a number into a cell and then it will
create that many extra sheets at the bottom.

Like if I have 5 participants I want them to all have a sheet with the same
functions on it.
 
G

Gord Dibben

Try this macro with an inputbox to enter the number.

Sub SheetCopy()
Dim i As Long
On Error GoTo endit
Application.ScreenUpdating = False
shts = InputBox("How many copies")
For i = 1 To shts
ActiveSheet.Copy after:=ActiveSheet
Next i
Application.ScreenUpdating = True
endit:
End Sub


Gord Dibben MS Excel MVP
 
Top