如何重命名工作表

Question

如何通过引用其位置来重命名工作表？也就是说，如果我要重命名的第二片，而无需使用代码，例如：

Sheets("Sheet1").Name = "New Name" 

因为这会产生问题，当我的代码添加纸张，如果在过去的一个片从它赢得了工作簿中删除不一定对应于下​​一个数字。

例如：如果我删除Sheet1，然后创建一个新的它将是Sheet2，但为了不必每次使用它时都要更改宏，我只想引用该选项卡的位置。并说firstSheet，重命名为“新名称”。

这是可能的还是有解决方法？

Answer 1

Sheets集合通过索引（位置）或名称进行索引，两者都是唯一的。对于新的工作簿，这些都应该引起相同的：

MsgBox Sheets("Sheet1").Name 
MsgBox Sheets(1).Name 

因此，对于您的问题：

如何通过引用它的位置重命名表？

使用工作表的索引。

Sheets(_index_).Name = "New Name"