Excel中,使用VBA以某一单元格内容命名工作表

Question

我自己写的一部分代码如下,但执行有问题,不知道应该如何写:
需要实现的功能是:
1. 使用每个表中的"G4"单元格内容命名工作表;
2. 错误处理:工作表名重复时命名为"工作表名(1)",工作表名为空格时自动命名为"工作表(i)"
请VBA高手指正,谢谢.

Sub change()
For i = 1 To ActiveWorkbook.Worksheets.Count
n = Worksheets(i).Range("G4").Value
if n="" then
xxxxxxx(不知道如何写了)
end if
Worksheets(i).Name = n
Next
End Sub

Answer 1

运行以下代码，当前工作表以选中单元格的内容重命名。
Sub 工作表重命名()
If Selection.Value <> "" Then ActiveSheet.Name = Selection.Value
End Sub