copying full worksheets

[Jerry]

How can I copy a worksheets a number of times. User input as to the number
of worksheets to be created and copy sheet1 that number of times. Thanks in
advance.

 

[Jacob Skaria]

Try the below

Sub Macro1()
intCount = 5
For intTemp = 1 To intCount
Sheets("asd a").Copy After:=Sheets("asd a")
Next
End Sub

If this post helps click Yes

 

[Per Jessen]

Hi

Try this:

Sub CopySheets()
Dim ShToCopy
Dim NumOfCopies As Long

Set ShToCopy = Worksheets("Sheet1") 'Change sheet name as required
NumOfCopies = InputBox("How many copies of the worksheet do you need?")

For sh = 1 To NumOfCopies
ShToCopy.Copy after:=Worksheets(Worksheets.Count)
Next
End Sub

Regards,
Per

 

[Jim Thomlinson]

Note that when copying worksheets you can hit an error as described here...

http://support.microsoft.com/default.aspx?scid=kb;en-us;210684&Product=xlw