For Each WsTabelle In Sheets
If WsTabelle.Name = Range("A1") Then
WsTabelle.Visible = xlVeryHidden
'WsTabelle.Add.CodeName = Range("A1")
End If
Next WsTabelle
weis jemand warum ein fehler kommt wenn sobald ich die Zeile
WsTabelle.Add.CodeName = Range("A1")
aktiviere?Er sagt dann. methode nicht gefunden.
Ich will den Codename (nicht den Blattname) per VBA vorgeben