Blattnamen ändern

ich lasse ein Tabellenblatt kopieren und dann zusammenfassen. Soweit funktioniert alles. Zum Abschluß möchte ich den Namen des Tabellenblattes ändern.

Dazu lasse ich vorher den Namen des Quellblattes Zwischenspeichern bzw. übergebe ihn an eine Variable.
Diese soll dann den Namen des Quellblattes und einen Zusatz "Bericht" als neuen Namen eintragen.

Mein Code:

BName = ActiveSheet.Name
ActiveSheet.Copy Before:=ActiveSheet
Application.CutCopyMode = False
....
dann meine weiteren Anweisungen
....
ActiveSheet.Name = BName & "Bericht"

End sub

Leider wird der Name des Tabellenblattes überhaupt nicht geändert. Es heißt immernoch z.B. "Elektro (2)" weil es ja gerade copiert wurde.
Hat da jemand einen Tip für mich.

Danke