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


On Thu, 26 Oct 2006 13:24:02 -0700, TSmoker
wrote:

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.