(Tipp 149)
Wie kann ich das Blatt nach dem Inhalt der Zelle A5 benennen?
Ggf. sollte noch geprüft werden, ob der Blattname schon vergeben ist. Das �bernehmen geht einfach:
Sub Name_anpassen() ActiveSheet.Name = Range("a5").Value End Sub