In der CodeName Zuweisungszeile wird der "Laufzeitfehler '9' Index außerhalb des gültigen Bereichs" ausgegeben. Sobald die Entwicklungsumgebung geöffnet wird, läuft der Code einwandfrei weiter. Habe viele verschiedene Schreibweisen ausprobiert, keine hat geholfen. Hier nur eine der vielen ausprobierten Schreibweisen:
With ThisWorkbook
.Worksheets.Add.Name = "Mysheet"
.VBProject.vbcomponents(Worksheets("Mysheet").CodeName).Name = "My_CodeName"
End with
' alternativ
' ThisWorkbook.VBProject.vbcomponents("Mysheet").Properties(5).Value = "My_CodeName"
' With Application.ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
' .Name = "My_CodeName"
' End With
' u.v.m.- das Ergebnis ist immer das gleiche.
Danke für eure RM!