使用VBA动态重命名Excel工作表

我有大约50本工作手册，每本有两个标签。我想用与工作簿名称相同的名称重命名第一个工作表。 当工作簿中只有一个工作表选项卡时，我知道如何解决此问题。 但它不适用于多个选项卡。

---

如何使用VBA动态重命名与工作簿名称同名的工作表？

这将重命名工作表，使其与所处工作簿同名：

Worksheets(1).Name = ActiveWorkbook.Name

---

如果有多个工作簿，并且您希望自动重命名每个工作簿中的第一个工作表，您可以围绕此语句构建一个循环，打开每个工作簿，然后运行上面的代码行。

正如@FreeMan所说。当您更新问题时，请向我们提供以下信息：1）工作簿是否在一个文件夹中？2） 您以前是如何进行重命名的（哪些不起作用）？3） 你想要达到什么样的结果？加载项按钮，一次性宏，。。。？