brauche dringend eure Hilfe.
mit diesem Code benenne ich Tabellenblätter je nach Eintragung (Namen) in Zelle E4
eines jeden Blattes.
Mein Problem:
wenn der Name in Zelle E4 gelöscht wird, dann soll der ursprüngliche TabName wieder Name des Tabellenblattes sein.
Wie geht das?
Sub Blattnamen ()
Dim Blatt As Object
On Error Resume Next
Sheets("Übersicht").Visible = False
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Visible = True Then
Blatt.Activate
Blatt.Name = ActiveSheet.Cells(4, 5) 'zelle E4 (5.Spalte,4.Zeile)
End If
Next Blatt
Sheets("Übersicht").Visible = True
End Sub
Danke,
Alex