Tabellenblätter umbenennen
28.03.2008 17:32:20
Evelyn
ich habe eine Frage. Ich möchte in einer Datei die Tabellenblätter nach einer bestimmten Zelle benennen lassen. Ich habe bereits das unten angehängte Makro in der Datei eingegeben.
Leider funktioniert das aber nur beim ersten Tabellenblatt. Die folgenden Tabellenblätter berücksichtigt er nicht. Kann mir da jemand helfen? Vielen Dank für eure Hilfe.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$A$1" Then Exit Sub
If Target "" Then
Me.Name = Target
End If
End Sub