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