如何用VBA给excel工作表批量重命名？

Question

excel有约200个工作表，因为名称有点儿乱，想重新按数字顺序给他们重命名。要求第一个工作表名称不变，因为第一个表是目录页，从第二个开始重命名为数字1-190.
请哪位高手指点。
最好详细点儿，比如编写好的VBA代码，如何应用等。多谢！

Answer 1

代码如下：

Sub å®1()
    for i=2 to Sheets.Count
        Sheets(i)=trim(i-1)
    next i
End Sub

追问

试了，貌似没有用呢？是我操作不对吗？代码保存之后，工作表名字并没有改变。