如何重命名工作表

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"