问将“模板”工作表复制到其他工作表

EN

Sub AddSheetsFromCells()
    
    Dim xRg As Range, wBk As Workbook
    Set wBk = ActiveWorkbook
    
    On Error GoTo Quit
    Set dbRange = Application.InputBox("Range: ", "Select Range", _
    Application.Selection.Address, Type:=8)
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each xRg In dbRange
    With wBk
    .Sheets.Add After:=.Sheets(.Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = xRg.Value
    If Err.Number = 1004 Then
    Debug.Print Chr(34) & xRg.Value & Chr(34) & " already used as a sheet name"
    .ActiveSheet.Delete
    End If
    On Error GoTo 0
    End With
    Next xRg
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Quit:
    
    End Sub