Ошибка конфликта имен при выполнении этого копирования l oop?

Question

Я просто пытаюсь перенести первые 17 листов мастерской книги в новую рабочую книгу, но на некоторых листах продолжают появляться различные ошибки конфликта имен. В результате получается тонна кликов Да (около 100), прежде чем я могу перейти к следующей передаче листа. Я провел исследование и попытался удалить листы ошибок из диспетчера имен, но безрезультатно.

Код для моего l oop:

Dim wks As Worksheet
Dim wbkTarget As Workbook
Dim i As Long
Set wbkTarget = Workbooks.Add()
With ThisWorkbook
    Set wks = Nothing
    For i = 1 To 17
        Set wks = .Worksheets(i)
        wks.Copy wbkTarget.Sheets(Sheets.Count)
    Next i
End With

Есть идеи, что может быть причиной этого?