Sub SheetCopy22()
Dim I As Long
Dim shts As Long
Dim whichone As String
On Error GoTo endit
Application.ScreenUpdating = False
whichone = InputBox("enter sheet name to copy")
shts = InputBox("How many times?")
For I = 1 To shts
Sheets(whichone).Copy After:=ActiveSheet
' With ActiveSheet
' .Name = "NewSheet" & I
' End With
Next I
Application.ScreenUpdating = True
endit:
End Sub


Gord Dibben MS Excel MVP

On Thu, 27 Aug 2009 08:34:10 -0700, bert_lady
wrote:

Need code to prompt users for the name of the sheet to copy and then prompt
for the number of copies of the sheet they want. I have dinked around with
this for a while and am really missing something

Thanks