MULTIPLE COPYING OF ONE WORKSHEET

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
 
G

Gord Dibben

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top