excel2007批量重命名

我目前要做一个工作簿约几千个吧 请问高手怎样对这个工作簿中的工作表进行重命名 文件名为工作表中的某个单元格内容

如：

最简单的一个，没有除错。

Sub mm()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).[a1]
Next
End Sub

将相同的文件分类管理是一种科学的操作。很多朋友借助一些专业的程序来对文件批量重命名，以使其看上去秩序井然。其实我们大可不必这样兴师动众，因为直接使用Windows XP同样可以进行快速批量重命名。 　　将要重命名的文件全部保存在指定的一个文件夹中，并将它们全部选中，然后按下F2按钮，这样你会发现第一个文件的文件名处于可编辑状态，例如笔者输入其文件名为Pic并回车，你会发现其它文件的文件名也跟着变化了，并且变化按照Pic（1）、Pic（2）、Pic（3）、Pic（4）…的顺序进行递增。