If you want to delete all the worksheets other than the active sheet， this macro is useful for you. When you run this macro it will compare the name of the active worksheet with other worksheets and then delete them.
VBA程序运行界面：VBA程序运行界面VBA源码：Sub ProtectAllSheets_Call() Call ProtectAllSheetsEnd SubSub ProtectAllSheets _
