VBA loop to copy a worksheet a number of times, assign name each time based on loop number

hi
looks like you're almost there with your macro

try this variation (I've set it to copy file "Near leader output sheet 1", not file 15)

Sub CopyWorksheetXTimes()
 Dim x As Integer

 x = InputBox("Enter number of times to copy Near leader output sheet 1")
 For numtimes = 1 To x
 ActiveWorkbook.Sheets("Near leader output sheet 1").Copy _
 after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
 ActiveSheet.Name = "Near leader output sheet " & numtimes + 1
 Next

 End Sub

can I ask you to edit your post and put code tabs around the macro code - otherwise a moderator will ping you!