ExcelでSheetのオブジェクト名(Sheet1とかSheet2とか)を変更

ExcelのVBAを作成していると、Sheet名ではない方のSheet1～の連番で作成される番号がずれたり、ばらばらだったりして、見た目が悪かったり(VBA見ないと分からないけど)するので直したいなぁ～と思って調べたら次のを見つけた。

Public Sub ChangeCodeName()
    Dim oldName As String
    Dim newName As String
    oldName = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).CodeName
    newName = "Sheet1"
    ThisWorkbook.VBProject.VBComponents(oldName).Properties("_CodeName") = newName
End Sub

これでSheet1～順番に並んで気分的にすっきりします。