根据每张工作表的单元格值命名w orkbook中的所有工作表

Question

之前我使用过此代码，但只是将其更改为其他单元格，现在收到运行时错误＆＃39; 1004＆＃39;方法＆＃39;名称＆＃39;对象＆＃39; _Worksheet＆＃39;失败了。不确定是什么导致了这个

 Dim ws As Worksheet
 For Each ws In ActiveWorkbook.Worksheets
 ws.Name = ws.Range("FW1")
 Next

Answer 1

工作表的名称必须是字符串，并且您要为其指定范围对象，因此您必须改为：

 ws.Name = ws.Range("FW1").value