如何在VBA中保留两个工作表并删除其他工作表

Sub KeepTwoWorksheets()
    Dim ws As Worksheet
    Dim keepSheet1 As Worksheet
    Dim keepSheet2 As Worksheet
    
    '设置要保留的两个工作表
    Set keepSheet1 = ThisWorkbook.Worksheets("Sheet1")
    Set keepSheet2 = ThisWorkbook.Worksheets("Sheet2")
    
    '循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        '检查当前工作表是否为要保留的工作表
        If ws.Name <> keepSheet1.Name And ws.Name <> keepSheet2.Name Then
            '删除非保留工作表
            Application.DisplayAlerts = False '禁用警告提示
            ws.Delete
            Application.DisplayAlerts = True '启用警告提示
        End If
    Next ws
End Sub