Blattname ändern

der Name eines Tabellenblattes wird durch Eingabe in Zelle M3 festgelegt:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Name = "C" & Range("M3")
End Sub

Jetzt taucht beim Kopieren die Fehlermeldung auf, dass kein neus Blatt mit gleichem Namen eingefügt werden kann...
Gibt es eine Möglichkeit, das zu ändern, ohne auf die Option der automatischen Umbenennung des Blattes zu verzichten ?

Gruß
Lutz