Try this out. It assumes that the sheet you're starting with is the first in the file, and that the name will always end with _x. If that's not the case, let me know.
Code:
Sub COPY_SHEETS()
Dim lIterations As Long
Dim lIterated As Long
Dim wsActive As Worksheet
Dim sPrefix As String
Set wsActive = ActiveSheet
sPrefix = Left(wsActive.Name, InStr(1, wsActive.Name, "_"))
With wsActive
lIterations = .Range("C3").Value - 1
For lIterated = 1 To lIterations
wsActive.Copy after:=Sheets(lIterated)
Worksheets(lIterated + 1).Name = sPrefix & lIterated + 1
Next lIterated
End With
End Sub
Bookmarks