Prompt for tab name and then prompt for number of iterations of ta

  • Thread starter Thread starter bert_lady
  • Start date Start date
B

bert_lady

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
 
bert_lady,

Utilize the help documentation. Search "InputBox" and read the
documentation on Application.InputBox Method and InputBox Function. Also,
search "Worksheets.Add" and read the documentation for Worksheets.Add Method.
After you prompt the user for the worksheet name, you should validate that
the worksheet exists before prompting for the number of copies.

Start with the help documentation. If you are still having trouble, post
your code to the thread with any subsequent questions.

Best,

Matthew Herbert
 
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
 
Back
Top