Ошибка выполнения 1004 - Ошибка метода «Имя» объекта Worksheer

Question

Масштабирование eroor 1004 во время выполнения объединено, но код работает просто отлично. Более того, код может выполняться слишком медленно, поэтому для входа в файл SummaryProject.xlsm требуется 30 секунд

Код принимает все файлы xlsm, например, каталог "SummaryProject.xlsm". Копирует каждый ряд из "Drill" Листы и вставьте их в лист «Summary» в файле «SummaryProject.xlsm». Кроме того, эта сводная информация xlsm обновляется каждый раз, когда вы открываете ее текущими посещаемыми файлами.

Sub Import_to_Master()

Dim sFolder As String
Dim sFile As String
Dim wbD As Workbook
Dim wbS As Workbook
Dim ws As Worksheet

    Set wbS = ThisWorkbook
    sFolder = wbS.Path & "\"

    sFile = Dir(sFolder)
    Do While sFile <> " "

        If sFile <> wbS.Name Then
        Set wbD = Workbooks.Open(sFolder & sFile)
        'open the file; add condition to

        'Adapt this part
        wbD.Sheets("Drill").Range("A2:P2").Copy
        wbS.Activate

        Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1, 
        0).PasteSpecial xlPasteValues
        Application.CutCopyMode = False

        wbD.Worksheets("Log").Copy before:=ThisWorkbook.Sheets(1)

        Set ws = Sheets("Log")
        With ws
        .Name = Range("D1").Value
        End With

        wbD.Activate
        wbD.Close savechanges:=True  'close without saving
        End If
        sFile = Dir   'next file
Loop

End Sub