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
---------------
Jacob Skaria


"Jerry" wrote:

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.