Скопировать конкретный лист из нескольких рабочих книг в основную рабочую книгу

Question

Я пытаюсь скопировать определенный лист (называемый «Редактировать») из папки, полной книг (190).У меня есть следующий код для этого:

Option Explicit
Sub CombineSheets()
Dim sPath As String
Dim sFname As String
Dim wBk As Workbook
Dim wSht As Variant

Application.EnableEvents = False
Application.ScreenUpdating = False
sPath = InputBox("M:\Employee Information\Peter Young\Msc Project\1 - 181028 - Office First Floor\MacroCopy")
ChDir sPath
sFname = InputBox("*")
sFname = Dir(sPath & "\" & sFname & ".xl*", vbNormal)
wSht = InputBox("Edit")
Do Until sFname = ""
    Set wBk = Workbooks.Open(sFname)
    Windows(sFname).Activate
    Sheets(wSht).Copy Before:=ThisWorkbook.Sheets(1)
    wBk.Close False
    sFname = Dir()
Loop
ActiveWorkbook.Save
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Когда я запускаю макрос, я получаю диалоговое окно с просьбой назвать лист для копирования из всех соответствующих книг.Я вхожу в «Правка» и получаю сообщение «Ошибка времени выполнения» 76: «Путь не найден». Может кто-нибудь сказать мне, что нужно изменить в коде, чтобы это работало ??