求工作表改名的代码

ok123.1

请教:

工作表sheet1, sheet2 至 sheet10, 用本工作表中 "C2"中的值命名?

如: sheet1 中 "c2" 的值是"一班", 则工作表 sheet1 名也改为 "一班",

   sheet2 中 "c2" 的值是" 二班", 则工作表 sheet2 的名也改为 "二班"

先谢谢了

方漠

Sub ChangeName()

Dim SH As Worksheet

For Each SH In ThisWorkbook.Worksheets
   If SH.Name <> SH.Range("C2").Value Then SH.Name = SH.Range("C2").Value
Next

End Sub

ok123.1

谢谢方漠，

代入程序时显示：

运行时错误1004

方法“Name"作用于对象“ _worksheet" 时失败