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

Question

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

Answer 1

试试这个

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