Подпрограмма 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