Changing many sheets codenames

lalbatros

Well-known Member
Joined
Sep 5, 2007
Messages
659
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
 

Some videos you may like

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try

Code:
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

Well-known Member
Joined
Sep 5, 2007
Messages
659
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
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,525
Messages
5,511,817
Members
408,865
Latest member
cmajewsk

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top