更改工作簿中所有工作表名称的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