Microsoft Excel에서 VBA를 사용하여 워크 시트 모듈 이름을 이름 바꾸기

Option Explicit

Sub ChangeAllWorksheetCodenames()



'Code for renaming worksheet codemodule names

Dim ws As Worksheet, i As Integer

i = 0

'Looping through all the worksheets in the active workbook

For Each ws In ActiveWorkbook.Worksheets

i = i + 1



'Putting a check over error occurence while renaming

'If error occurs at runtime, code will skip the error and

'Start executing from next line

On Error Resume Next



'Code for renaming codemodule name

ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = _

"Sheet" & i



'Cancelling the effect error check statement we used earlier,

'Code will not skip the code if any runtime error occurs

On Error GoTo 0



Next ws

Set ws = Nothing

End Sub