VBA - Kopiere ark med formler men ingen kæde

Var det ikke nemmere at gemme filen på ny, slette en fane og så bryde kæder efterfølgende?

Bryde kæder kunne også bare være markere to faner og alle celler så kopier og indsæt som værdi (medmindre der er visse formler du ønsker at beholde). Jeg er sikker på der er en vba til at bryde kæder korrekt, men den kender jeg ikke.

Du må kunne fjerne dine links med BreakLinks, se fx her

https://www.thespreadsheetguru.com/the-code-vault/2014/10/10/break-all-external-links-excel

Jeg prøver lige at uddybe.

Den originale skabelon fil indeholder 3 ark.

Ark1. Indeholder blandt andet adresser som indsættes under oprettelse af  den nye fil.
Ark2. Er en skabelon hvor blandt andet adresserne indsættes under VBA.
Ark3. Indeholder formler / autosum og henter data fra Ark2.

Et eksempel fra ark 3 hvor der hentes data fra ark 2 (2-Skema)
"=HVIS('2-Skema'!C21="";"";'2-Skema'!C21)"

Efter kopiering ser Ark3 sådan ud.
=HVIS('[Skabelon.xlsm]2-Skema'!C21="";"";'[Skabelon.xlsm]2-Skema'!C21)

Jeg vil gerne have at Ark3 i den nye fil til at se ud som første eksempel.

Søg og erstat [Skabelon.xlsm] med ingenting.

Eller gå i rediger kæder og vælg den samme fil så erstatter den dem også.

Tak for input, men jeg leder efter vba kode da jeg danner temmelig mange filer.

Det kan laves med kode - har du prøvet at bruge optageren?

Koden kunne lyde noget i stil med dette:
    ActiveWorkbook.ChangeLink Name:=[det gamle navn], NewName:= _
        [ActiveWorkbook], Type:=xlExcelLinks

Spændende - changelink vil jeg kigge nærmere på.

Nej jeg har ikke prøvet optageren, i skrivende stund ved jeg ikke hvad det er, men så er der endnu en ting at kigge nærmere på.

Tak for hjælpen.

Køb VBA for dummies, læs de første 3-4 kapitler så er du ret godt kørende :-)
Jeg håber du får det brugt.

Jeg ender med at bruge.

ActiveWorkbook.ChangeLink Name:=ThisWorkbook.FullName, NewName:=ActiveWorkbook.FullName, _
Type:=xlExcelLinks

Tak for ledetråden.