[Excel-VBA] 여러 sheet 한꺼번에 이름바꾸기

Sub button1()
Dim i as integer
With [e5: e129]

For i=5 to Sheets.Count

    Sheets(i). Name = Left ( "(" & cells ( i-4 ) & ")" , 31 )
Next

End with

End sub


응용만 잘하면 여러기능에 유용하게 쓸수잇음