Hi MJ,

If you need the function very frequently, you may use the following code
Sub MacroCopyWS()

Answer = InputBox("How many worksheets you want to duplicate?", "Copy
worksheet", 30)

For i = 1 To Answer
ActiveSheet.Copy Befo=Sheets(1)
Next i

End Sub

"Bob I" wrote:

copy once, group the two, copy them, group the 4, copy
them..................

MJ wrote:

I want to copy the same worksheet 30 times in one workbook. Is that possible
without doing the copy worksheet 30 times?