Excel 根据其他图纸的值创建名称为的新图纸'；s单元'；s值

我有如下02张。我想在工作表“汇总”的“工作表名称”列中添加预先确定名称的新工作表

例如：我输入了03张图纸名称“ABC”、“BCC”、“XYZ”，然后将创建03张具有相应名称的图纸。然后，我将工作表“模板”的内容复制到“ABC”、“BCC”、“XYZ”，并用其名称更改新工作表的B1值

如何使用VBA执行此操作？我已经编写了一个用于创建的代码段，但它无法运行。谢谢

Sub Macro2()

    Dim i As Integer
    Dim n As Integer
    n = ThisWorkbook.Sheets(Summary).Range("B2", ActiveCell.End(xlDown)).Count

    For i = 1 To n
        Sheets.Add
        Sheets.Add.Name = ThisWorkbook.Sheets(Summary).Cells(i + 1, B).Value      
    Next i

End Sub

表“总结”

图纸“模板”

---

根据Bigben的指导，我写这些代码是为了创建新的工作表，但除了“ABC”、“BCC”、“XYZ”之外，它还创建了03个其他工作表

Sub Macro2()

    Dim i As Integer
    Dim n As Integer

    With Sheets("Summary")
        n = .Range("B" & .Rows.Count).End(xlUp).Row - 1
        For i = 1 To n
            Sheets.Add
            Sheets.Add.Name = ThisWorkbook.Sheets("Summary").Cells(i + 1, 2).Value
        Next i
    End With

End Sub

---

注释掉或删除第一张

工作表。添加
工作正常。非常感谢你！