I don't know:
Sub Copy_Sheet()
ActiveSheet.Unprotect
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Sheets("Admin").Range("K4").Value
With Sheets("CopySheet")
.Visible = True
.Copy After:=Sheets(Sheets.Count)
.Visible = False
End With
With ActiveSheet
.Unprotect
.Name = "Job-" & Format(Sheets("Admin").Range("K5").Value + 1, "000")
.Protect
End With
Sheets("Admin").Range("K5").Value = Format(Sheets("Admin").Range("K5").Value + 1, "000")
Next i
Sheets("Admin").Select
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Bookmarks