ワークシートの名前を置換する

シートの名前に使っていた漢字が違ったため（爆）、シートの漢字を直したく、VBAで作りました。
お試しになる場合は、ファイルを保存するか、間違っても良いようにしてから、お試しください。（VBAは再生後、元に戻るができないため。）

before_wordに置換前の文字列を、after_wordに置換後の文字列をお入れください。
2つ目のマクロは、名前を置換したシート数を出すようにしています（文字数ではなく、シート数です。）

Sub sheetname_change()

    Dim before_word As String
    before_word = "くま"
    
    Dim after_word As String
    after_word = "熊"

    Dim i As Long
    For i = 1 To Worksheets.Count
        Worksheets(i).Name = Replace(Worksheets(i).Name, before_word, after_word)
        Debug.Print Worksheets(i).Name
    Next i
    
End Sub

Sub sheetname_change_plus_count()
    
    Dim before_word As String
    before_word = "くま"
    
    Dim after_word As String
    after_word = "熊"

    Dim cnt As Long, i As Long, before_name As String
    cnt = 0
    
    For i = 1 To Worksheets.Count
        before_name = Worksheets(i).Name
        Worksheets(i).Name = Replace(Worksheets(i).Name, before_word, after_word)
        If before_name <> Worksheets(i).Name Then cnt = cnt + 1
        Debug.Print Worksheets(i).Name
    Next i
    
    MsgBox cnt & "シートの名前を置換しました"

End Sub