excel怎样批量重命名工作表

Question

我一个工作簿里有91个工作表。现在我要将这91个工作表按目前的顺序重命名为1，2，3……，请问VBA代码是什么

Answer 1

这样就可以：

SUB XXX()
DIM I
FOR I=1 TO SHEETS.COUNT
SHEETS(I).NAME=I
NEXT I
END SUB

Answer 2

Sub aa()
For n = 1 To 91
Sheets(n).Name = n
Next
End Sub