Copy one sheet 160 times in one workbook and put in order 1,2,3,4

[Sam666666]

How can you copy one sheet 160 times in one worksheet and put in order 1,2,3,4,5

 

[My Aswer Is This]

What do you mean put them in order? Do you mean you want them named 1,2,3?

 

[Sam666666]

yes

 

[Sam666666]

Copy one sheet 160 times in one workbook

 

[My Aswer Is This]

Try this:

Sub Copy_Me()
Application.ScreenUpdating = False
Dim i As Integer
ActiveSheet.Name = "MasterForm"
For i = 1 To 160 ' Number of copies
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = i
Next
Application.ScreenUpdating = True
End Sub