Changing many sheets codenames

[lalbatros]

Hello,

I have about 100 worksheets or charts in a workbook.
There is no VBA code in the workbook yet.

I want to make the codeName for each sheet to be the same as the tab-name.
I know that a codeName is a read-only property.
Nevertheless, I would be interrested in not re-typing all these 100 names.

Would you have some suggestion?

Thanks,

Michel

 

[VoG]

Try

Sub test()
Dim i As Long
For i = 1 To ThisWorkbook.Worksheets.Count
    ThisWorkbook.VBProject.VBComponents(Sheets(i).CodeName).Properties("_CodeName") = Sheets(i).Name
Next i
End Sub

 

[lalbatros]

Thanks a lot !
That's a really good one, that saved me from a boring time.
It took my two minutes before it worked.
In my first attempts, it generated some errors.
But running it in debug mode and aknowledging one more message, I got the work completely done!

Thanks,

Michel