Question

如何批量修改VBA EXCELL对象的 SHEET2，SHEET3 ....为 sheet1 ,sheet2....

假如sheet1 被删除了，如何批量修改VBA EXCELL对象的 SHEET2，SHEET3 ....为 sheet1 ,sheet2....
看清楚再回答，不是后面的表名，是前面sheet1，。。。。。
sheet1 可以手动改的按F4改名称就可以了， 我想用代码批量改。就像通过 sheet1.name 一样获得工作表名， 有没有像.name一样的方法。因为我的表经常被宏病毒破坏 老是把我的SHEET1给重命名，把原来的SHEET1 变成SHEET2， 这样我编写的宏都不通用了。本来汇总表对应的代码是sheet1的， 现在对应成sheet2了，搞的我要修改宏代码才能在破坏的工作表内执行宏

Answer 1

Sheet1，Sheet2……这些貌似不能改的，都是Excel自动的。

请问楼主修改Sheet编号的目的是什么？也许还有其他途径来达到相同的目的。
----------------------------------------------------------------------------------------------------------------------
如果要针对某个Sheet运行宏，可以使用你自定义的Sheet名称，如“汇总”，“零首付”等。
代码：
ThisWorkbook.Worksheets("汇总")

这样不管Sheet的标号怎么变，都不会影响宏的运行了。不知是否符合楼主的意思。

Answer 2

百度一下：vba 修改codename
--------------------------------------------------------------
自己编写的宏，引用工作表通常是Sheets(i)或Sheets("汇总")之类
应该不会用到CodeName