[VBA] 시트 이름에 단어가 포함되면 이름을 변경하는 소스

Sub Main()


For Each SheetName In Worksheets
        If InStr(SheetName.Name, "38W") Then

            SheetName.Name = Replace(SheetName.Name, "38W", "40W")
            MsgBox (SheetName.Name)
        End If
        
    Next

End Sub

 

위는 38W가 들어간 시트 이름을 전부 시트 이름 그대로에서 38W를 40W로 바꾸는 로직이다.

시스템 문제때문에 템플릿이 한달동안 밀려서 바꾸는데에 썼다