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, Ralf