I'd use a macro. A simple example:

Sub DupSheet()
Dim Counter As Integer
Application.ScreenUpdating = False
For Counter = 1 To 50
ActiveSheet.Copy , Worksheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Sheet" & Counter + 1 ''Modify as needed
Next
End Sub

--
Jim Rech
Excel MVP
"tea1952" wrote in message
...
| can you copy worksheets without doing it one at a time if you want like 50
| worksheets that are all the same in the same workbook?