Удаление нескольких книг Один и тот же лист по имени путем выбора папки

Question

Удаление нескольких книг с одним и тем же листом по имени, но приведенный ниже код не работает, он не выполняет никаких действий после выбора папки.

Sub jdghd()
Dim xFd As FileDialog
    Dim xFdItem As String
    Dim xFileName As String
    Dim wbk As Workbook
    Dim sht As Worksheet
   
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
    Else
        Beep
        Exit Sub
    End If
Do While xFileName <> ""

  Set wbk = Workbooks.Open(xFdItem & xFileName)

  For Each sht In wbk.Sheets
    If sht.Name = Summary Then
      wbk.Worksheets(Summary).Delete
    End If
  Next

  wbk.Close SaveChanges:=True

  xFileName = Dir
Loop
End Sub