Hallo

ich sehe mordkomplizierte Codes vom feinsten, aber warum soviel Aufwand??  In der Anfrage steckt ja ohnehin noch ein Denkfehler!!

Ich kann nicht gleichzeitig in Tabelle1, Zelle A3 den alten Namen haben, und einen Neuen reinschreiben. Dann ist der alte Name futsch!

Will man die Tabelle umbenennen, muss ich alten und neuen Namen beide in einer Zelle stehen haben, z.B. in Zelle A3 und B3; dann wird ein Schuh draus!  Hier ein simples Beispiel ohne For Next Schleife für alle Tabellen.

Sub umbenennen()
Dim OldName As String, NewName As String
    OldName = Range("A3")   '
    NewName = Range("B3")
    Worksheets(OldName).Name = NewName
End Sub

mfg Nobody