シート名の文字検索置換（エクセル）

エクセルのシート名の文字検索置換のvba

シート名に2009と言う文字が入っている場合、2010に書き換えてくれる。

知り合いにエクセルのプロがいると、楽チンチ～ン♪

Sub シート名置換()
Dim sH, Fname, sNAme
   
    For i = 1 To Sheets.Count
        Set sH = Sheets(i)
        Fname = sH.Name
        If Left(Fname, 4) = “2009” Then
            sNAme = “2010” & Right(Fname, Len(Fname) – 4)
            Sheets(i).Name = sNAme
        End If
    Next

End Sub