Đổi tên tên mô-đun trang tính bằng VBA trong Microsoft Excel

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