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

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

试试这个

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

---

选择post作为答案。