Объект требуется ошибка 424 при копировании листа

Question

У меня проблемы с копированием листа и созданием из него новых в макросе Excel.

У меня есть кнопки на листе 1 с именем "ahmer". Существует командная кнопка, которая считывает необходимые данные из ячеек sheet2 и sheet3. Затем необходимо скопировать лист с именем «sheet100» и создать новые листы для каждой строки данных, которые он считывает с sheet2 и. Затем заполните данные о них, которые были собраны из листа 2 и листа 3.

Но он дает «объект требует ошибку 424». вот мой код команды кнопка 2.

Private Sub CommandButton2_Click()


Dim d As Integer

For d = 2 To 3
    Dim z As Integer
    Dim e As Integer
    Dim last_row As Long
    Dim uu As Worksheet
    last_row = Worksheets(d).Cells(Rows.Count, 1).End(xlUp).Row

    For e = 2 To last_row
        Dim Name As String, IndustryName As String

        Name = Worksheets(d).Cells(e, "C")
        IndustryName = Worksheets(d).Cells(e, "D")

        Dim new_sheet As Worksheet


        Set new_sheet = Sheets("Sheet100").Copy(after:=Worksheets(Sheets.Count)) #error here
            new_sheet.Name = "Sheet" & ActiveWorkbook.Worksheets.Count

            Worksheets(new_sheet.Name).Cells(3, "E").Value = IndustryName

            Worksheets(new_sheet.Name).Cells(3, "C").Value = Name

    Next e
Next d


End Sub

Answer 1

Так как вы знаете, где найти новую копию:

With ActiveWorkbook
    .Sheets("Sheet100").Copy after:=.Sheets(.Sheets.Count)
    Set new_sheet = .Sheets(.Sheets.Count)
End with