Macro Копирование одного листа на несколько листов с динамическим диапазоном

Question

Fellow VBA Волшебников,

Используя следующий код, я был в состоянии генерировать несколько листов с названиями вкладок, равных динамический диапазон:

Sub SheetMacro() 
    Dim MyCell As Range, MyRange As Range 

    Set MyRange = Sheets("Control_Sheet").Range("F7") 
    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 
End Sub 

---

Я пытаюсь скопировать исходный шаблон w/formula (сводка EAC) во все недавно созданные листы. Добавление этого кода дублирует Резюме EAC, но не называют вкладки в пределах динамического диапазона:

Sub SheetMacro() 
    Dim MyCell As Range, MyRange As Range 
    Dim ws1 As Worksheet 

    Set MyRange = Sheets("Control_Sheet").Range("F7") 
    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 

     Set ws1 = ThisWorkbook.Worksheets("EAC Summary") 
     ws1.Copy ThisWorkbook.Sheets(Sheets.Count) 

    Next MyCell 

End Sub 

---

Существует ли оптимальный способ совместить код таким образом, чтобы повторить шаблон источника, и назовите вкладки в соответствии с входами в динамическом диапазоне?

Заранее спасибо.

Answer 1

Я смог использовать альтернативную команду для копирования, которая разрешила мой первоначальный вопрос. Вот код для тех, кто может столкнуться с этим:

Sub SheetMacro3() 
Dim MyCell As Range, MyRange As Range 

Set MyRange = Sheets("Control_Sheet").Range("F7") 
Set MyRange = Range(MyRange, MyRange.End(xlDown)) 
Sheets("EAC Summary").Visible = True 'displays master template 
For Each MyCell In MyRange 

    Sheets("EAC Summary").Copy After:=Worksheets(Worksheets.Count) 
    Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet 
Next MyCell 
Sheets("EAC Summary").Visible = False 'hides master template 
End Sub