VBA скопировать два листа вместе и получить 100 копий - PullRequest
Новая
       13

VBA скопировать два листа вместе и получить 100 копий

0 голосов
/ 18 мая 2018

У меня есть два листа шаблонов (связанных), я хотел бы создать около 100 раз обоих и переименовать их в соответствии со списком на листе «Выход - >>>» ячейки формы A381.например.tesco, tesco LL

Приведенный ниже код не работает, кто-нибудь может помочь, пожалуйста? 

Sub makeSheets()
Dim sh1 As Worksheets, sh2 As Worksheet, c As Range
Set sh1 = Sheets(Array("Template", "Template LL"))
Set sh2 = Sheets("Output-->>>")
    For Each c In sh2.Range("A381", sh2.Cells(Rows.Count, 2).End(xlUp))
        sh1.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = c.Value
    Next
End Sub

Большое спасибо

...