Hi Dear,

Please find attached..

Sub testing()

Dim i As Integer
Dim wkb As Workbook
Dim sh As Worksheet

Set wkb = ThisWorkbook
Set sh = wkb.Sheets("template")
i = VBA.InputBox("Enter a Number")
k = 1
For j = 1 To i

wkb.Sheets("template").Copy after:=Sheets(Sheets.Count)
Set nsh = ActiveSheet
nsh.Name = "New Sheet" & k
k = k + 1

Next j

MsgBox "Done", vbInformation

End Sub

Thanks & regards,