使用VBA将所有的表删除到给定的一组名称

I want to remove all sheets in the current workbook exception the list in {A2,A3, ... } and the sheet with name Summary. I wrote the following codeI want to remove all sheets in the current work