Code:Sub DuplicateData()Dim i As Long With Worksheets("row") For i = 1 To .Range("V4").Value Worksheets("template").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "T" & i .Range("C2").Copy ActiveSheet.Cells(i, "T") Next i End With End Sub
Bookmarks