Opgelost Inhoudsopgave sheets

[RoVo1211]

Ik heb een macro die een inhoudsopgave van alle sheets genereert en deze wil ik uitbreiden met de naam die in het deelvenster "Eigenschappen" tussen haakjes staat (de interne naam).
In het deelvenster "Eigenschappen" staan 2 velden met Name: één met haakjes en één zonder haakjes.
Zie de twee omkaderde velden in de afbeelding. Deze laatste is terug te vinden op het tabblad en in de inhoudsopgave.

Ik heb de volgende macro geschreven:

Sub Sheetnames()
Sheets(ActiveWorkbook.Sheets.Count).Select

Dim teller As Integer

With Sheets(ActiveWorkbook.Sheets.Count).[A:C]
.ClearContents
.[A1].Value = Date
.[B1].Value = FormatDateTime(Time, vbShortTime)
End With

For teller = 1 To Sheets.Count
    Sheets(ActiveWorkbook.Sheets.Count).Select
    Range("A" & teller + 1) = "Sheets(" & teller & ")"
    Range("B" & teller + 1) = Sheets(teller).???? 'Ik wil hier de naam tussen haakjes weergeven
    Range("C" & teller + 1) = Sheets(teller).Name 'Dit is de naam op het tabblad

Next teller
'Debug.Print Sheets(ActiveWorkbook.Charts.Count)

Range("A:C").Columns.AutoFit

End Sub

Is het ook mogelijk om "(Name)" -de interne naam- op te nemen in de inhoudsopgave?

 

[edmoor]

Dit bedoel je?

Range("B" & teller + 1) = "(" &  Sheets(teller).Name & ")" 'Ik wil hier de naam tussen haakjes weergeven

 

[RoVo1211]

Dat bedoelde ik niet, sorry. Daarmee krijg ik de naam op het tabblad tussen haakjes.
Zoals in de afbeelding te zien is, zijn er 2 velden Name. In de alfabetische weergave de bovenste, de interne naam (Name) en even verder naar beneden het veld Name (zonder haakjes, zoals deze verschijnt op het tabblad).
Kan ik het veld (Name) in de inhoudsopgave krijgen?

 

[edmoor]

Ik snap al wat je bedoelt.
De naam tussen de haakjes is Sheet.CodeName
Dus:

 Range("B" & teller + 1) = Sheets(teller).CodeName 'Ik wil hier de naam tussen haakjes weergeven

 

[RoVo1211]

Hier is het voorbeeld. Dit is handmatig gedaan, maar wil ik laten genereren door VBA

 

[edmoor]

Bedankt, maar het antwoord staat al in #4.

 

[RoVo1211]

Jij ook bedankt. Dit was wat ik bedoelde.