Excel VBA дублирует выбранные листы один раз, но затем только дублирует первый лист

Question

Я пытаюсь продублировать выбранные листы в Excel несколько раз, однако он дублирует каждый выбранный лист один раз, а затем просто дублирует первый лист. Любая идея, где я иду не так, пожалуйста?

Public Sub DuplicateSheetMultipleTimes()
    Dim n As Integer
    On Error Resume Next
    n = InputBox("How many copies of the selected sheets do you want to make?")

    If n >= 1 Then
        For numtimes = 1 To n
            ActiveWindow.SelectedSheets.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
        Next
    End If
End Sub

Answer 1

Вот код для вашей цели:

Public Sub DuplicateSheetMultipleTimes()
    Dim n As Integer
    On Error Resume Next
    n = InputBox("How many copies of the selected sheets do you want to make?")

    Dim mySheets As sheets
    Set mySheets = ActiveWindow.SelectedSheets

    If n >= 1 Then
        For numtimes = 1 To n
            mySheets.Copy After:=ActiveWorkbook.sheets(Worksheets.Count)
        Next
    End If
End Sub