wie kann ich nicht mehr verwendetet Bereichsnamen mittels Marko löschen!
Es soll vorher abgeprüft werden, ob diese Bereichnamen noch in der Datei verwendet werden!
Gruß
Lemmi
Sub NamenLöschen()
Dim n As Name
For Each n In ThisWorkbook.Names
n.Delete
Next n
End Sub
Gruß RalfSub Lösche_Namen_ohne_Bezug()
For Each nm In ActiveWorkbook.Names
aaa = "'" & nm
If InStr(1, aaa, "BEZUG") > 0 Then
ActiveWorkbook.Names(nm.Name).Delete
End If
Next
End Sub
VG, RalfDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen