将一系列单元格复制到通过单元格命名的多个工作表中
感谢您花时间看我的VBAmacros。 我的这个macros的目标是将一行单元格（e7：i7）复制到一个复制的工作簿中，该工作簿的工作表中粘贴了一个模板，并通过一系列单元格命名（c7）。 然后使用（c8）作为其名称，用下一行单元格（e8：i8）重复该过程。
我有模板工作表重复工作，我有工作表命名工作。 我的问题是将单元格从“工作表”复制到使用（c7）系列作为其名称新命名的工作表。
我正进入（状态
“运行时错误'9'：下标超出范围
感谢您的帮助，因为这是我的第一个VBA项目。
Sub NEWSAVINGSTEST1() ' ' NEWSAVINGSTEST1 Macro ' Dim ws1 As Worksheet Set ws1 = ThisWorkbook.Worksheets("NEWSAVINGS") Dim MyCell As Range, MyRange As Range Set MyRange = Sheets("Master").Range("c7") Set MyRange = Range(MyRange, MyRange.End(xlDown)) For Each MyCell In MyRange Sheets("NEWSAVINGS").Select Sheets("NEWSAVINGS").Copy After:=Sheets(Sheets.Count) 'creates a new worksheet 'ws1.Copy ThisWorkbook.Sheets(Sheets.Count) Sheets(Sheets.Count).Name = MyCell.Value ThisWorkbook.Worksheets(i).Select ("Master") ' just select the sheet Source.Copy Set MyRange2 = Sheets("Master").Range("e7:l7") Set MyRange2 = Range(MyRange, MyRange.End(xlDown)) ActiveSheet.Range("d11").Select ActiveSheet.Paste Next MyCell ' End Sub 我想也许是为了：
ThisWorkbook.Worksheets(i).Select ("Worksheet")
你实际上想要的东西是：
ThisWorkbook.Worksheets(Sheets.Count).Select