VBA子例程更改工作簿中的所有工作表名称

我正在寻找一个子程序，这将允许我读取工作簿中所有工作表的名称，并将名称转换为所有大写字母。

Answer 1

尝试这个

Sub Button1_Click() Dim sh As Worksheet For Each sh In Sheets sh.Name = UCase(sh.Name) Next sh End Sub