EXCEL工作簿如何把名称全部批量更改？

Question

如图，需要把工作表名称改为10月1日～10月31日。

Answer 1

7-3 改成 10-3？ 是这样么？
还是怎样修改， 1-AUG 这个表要修改么追问

是的。从第一个1-AUG开始，从左往右，依次改为10月1日，10月2日。但每个工作表里的内容不变。

追答

右键点工作表名-查看代码 ，如下代码复制进去 ，F5运行

随便写的 没测试

 Sub 改名()
   For Each sht In ThisWorkbook.Sheets
     sht.Name = "10-" & Format(CDate(Split(sht.Name, "(")(0)), "d")
   Next
 End Sub

追问

不行，报错

追答

最讨厌 别人说不行 又不说原因， 你特么人品不行