ich aktualisiere von Zeit zu Zeit eine Datei, in der auch Namen vergeben sind.
Dabei werde die alten "Namen-svergaben" unter
- Namen - definieren
mit einem Fehler bei
- Bezieht sich auf:
ausgewiesen - z.Zt. mehrfach.
Name
Name_1
Name_2
Name_3
usw.
Jetzt versuche ich mit folgendem Code, dass die "falschen" definierten Namen gelöscht werden.
Nur leider läuft der Code nicht :O
Sub NameFehler()
Dim n As Name
For Each n In ThisWorkbook.Names
If n.RefersTo Like "*#BEZUG!" Then
n.Delete
End If
Next
End Sub
Hat jemand einen Tip für mich ?Freu mich auf eine Antwort
Gruß
Stefn