Create copies of Worksheet (Master) based on a Range in another worksheet

[DocAElstein]

Hi

Try this

Option Explicit
Public Sub DuplicateSheetMultipleTimes()
Dim wsUsrs As Worksheet: Set wsUsrs = ThisWorkbook.Worksheets("List of User")
Dim wsMstr As Worksheet: Set wsMstr = ThisWorkbook.Worksheets("Master")
Dim rngStr As Range, rngUsrs As Range
 Set rngUsrs = wsUsrs.Range("A1:A" & wsUsrs.Cells.Item(wsUsrs.Rows.Count, 1).End(xlUp).Row & "")
    
    For Each rngStr In rngUsrs
     wsMstr.Copy After:=ThisWorkbook.Worksheets.Item(ThisWorkbook.Worksheets.Count)
     Let ActiveSheet.Name = rngStr.Value
    Next rngStr
    
    





'    Dim n As Integer
'    On Error Resume Next
'    n = InputBox("How many copies of the active sheet do you want to make?")
'
'    If n >= 1 Then
'        For numtimes = 1 To n
'            ActiveSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
'        Next
'    End If
End Sub