vba只保留指定工作表 删除其他所有工作表

我在写一个excel VBA　程序，运行时工作表根据任务自动添加工作表，添加工作表数量根据任务动态添加，现在要添加一个还原程序，删除自动添加的工作表，只保留指定工作表（指定的工作表不一定是第一张工作表），请那位高手指点一下，谢谢 --------------------编程问答--------------------

Public Sub test()

    Dim i As Integer

    

    For i = Sheets.Count To 1 Step -1

        Debug.Print Sheets(i).Name

        If Sheets(i).Name <> "Sheet2" Then

            Sheets(i).Delete

        End If

    Next

End Sub

=========================================================
可加入QQ群 33893963, 晚19:00 - 24:00在线
=========================================================


=========================================================
可加入QQ群 
33893963 / 49592594 / 19055578 
晚19:00 - 24:00在线
=========================================================
--------------------编程问答--------------------
=========================================================
可加入QQ群 
49592594 / 19055578 
晚19:00 - 24:00在线
=========================================================

补充：VB ,  VBA