wie liest man in einer Mappe mit vielen Arbeitsblättern den Codenamen des Arbeitsblattes aus, das
in Zelle A1 eine bestimmte Zeichenfolge stehen hat. (eine Suchvariable wie zb: "33rz5")
vielen lieben Dank
Stefan
Sub Suche()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Range("A1") = "33rz5" Then
MsgBox ws.CodeName
End If
Next
End Sub
Gruß Ralf