Formular-Schaltfläche verschieben/kopieren

Sub SVCopy20()
Dim rng As Range
Dim varC As Variant
varC = Sheets("Neue_Personen").Range("CF94").Value 'Tabellenblattname anpassen!
If Not IsNumeric(varC) Then varC = 1
With ActiveSheet
.Protect UserInterFaceOnly:=True
Set rng = .Cells(Rows.Count, 4).End(xlUp).EntireRow
varC = varC - rng.Row
If varC 

Wenn ich das Blatt „Neue_Personen“ über „verschieben/kopieren“ in eine andere Arbeitsmappe kopiere, funktioniert dort die Aktivierung des Codes nicht mehr. Wenn ich dort über die Schaltfläche den Code aktivieren will, versucht Excel immer, die Arbeitsmappe „Alle_Personen“ aufzumachen.
Wie kann ich erreichen, dass das Blatt „Neue_Personen“ in der neuen Arbeitsmappe voll funktionstüchtig ist bzw. dass der Code aktiviert werden kann, ohne die Arbeitsmappe „Alle_Personen“ zu öffnen.
Besten Dank für Eure Hilfe!
Servus, Walter