copying worksheets

T

tea1952

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?
 
J

Jim Rech

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
 
J

John Mansfield

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 Before:=Sheets(cnt)
Sheets(cnt).Name = "Sheet" & cnt + 1
cnt = cnt + 1
Loop
End Sub
 
Top