问将一个工作表的内容复制到多个新创建的工作表中

EN

Sub CreateSheetsFromAList()

    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler
    Dim MyCell As Range, MyRange As Range
    Set MyRange = Sheets("Cost Center").Range("A2")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))
    For Each MyCell In MyRange
        Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
        Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
    Next MyCell
    Sheets("Instruction").Select
    Range("A1").Select

    ErrorHandler:
    Sheets("Instruction").Select
    Range("A1").Select
    Exit Sub
    Application.ScreenUpdating = True

End Sub