폴더 내 여러파일에서 특정시트만 삭제하는 매크로

Sub delete_sheets()
    Dim FD As Object, Path As String, Filename As String, WB As Workbook
 
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    FD.InitialFileName = ThisWorkbook.Path
    FD.Show
    If FD.SelectedItems.Count = 0 Then Exit Sub
    Path = FD.SelectedItems(1)
 
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
    On Error Resume Next
    Filename = Dir(Path & "\*.xls*")
    Do While Filename <> ""
        Set WB = Workbooks.Open(Path & "\" & Filename)
        Application.StatusBar = "Deleting : " & Filename
        If WB.Worksheets.Count = 1 Then WB.Worksheets.Add
        WB.Worksheets("UXUI체크리스트").Delete
        WB.Worksheets("기능체크리스트").Delete
        WB.Save
        WB.Close
        Filename = Dir()
    Loop
    On Error GoTo 0
 
    Application.StatusBar = ""
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Set FD = Nothing
    Set WB = Nothing
    MsgBox "완료!!"
End Sub