MULTIPLE COPYING OF ONE WORKSHEET

  • Thread starter Thread starter jmh
  • Start date Start date
J

jmh

hello:
i have a worksheet with labels and formulas, (call it worksheet 2) and i
wouldlike to have multiple copies of it(worksheets 3-14). how do i accomplish
this?

excel 2007
 
Sub SheetCopy12()
Dim i As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet2")
On Error GoTo endit
Application.ScreenUpdating = False
For i = 14 To 3 Step -1
ws.Copy After:=ws
With ActiveSheet
.Name = "Sheet" & i
End With
Next i
Application.ScreenUpdating = True
endit:
End Sub


Gord Dibben MS Excel MVP
 
Back
Top