The only way that I know of to do this would be to use VBA. Assuming your
workbook contains only one sheet called "Sheet1", try:

Sub CopySheet()
Application.ScreenUpdating = False
Dim cnt As Integer
cnt = 1
Do Until cnt = 50
On Error Resume Next
Sheets("Sheet1").Copy Befo=Sheets(cnt)
Sheets(cnt).Name = "Sheet" & cnt + 1
cnt = cnt + 1
Loop
End Sub

----
Regards,
John Mansfield


"tea1952" wrote:

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?