如何让excel工作表名称跟随指定单元格，并在重命名后加上（1）以此类推

如何用VBA实现excel工作表名称跟随指定单元格，并在重命名后加上（1）以此类推

sub kk()
k=sheets.count
for x = 1 to k
sheets(x).name=sheets(x).range("a1").value & "(1)"
next
end sub

但是表2只显示（2），无法加上指定位置名称