Benannter Bereich löschen, wenn selektiert
Peter
Ich möchte benannte Bereiche löschen können, wenn diese selektiert sind.
Ist beispielsweise ein Bereich mit "abc" selektiert, sollte der Code, den Bereichsnamen (nicht jedoch etwa die Zellinhalte) löschen. Ich habe es mit nachfolgendem Code versucht. Doch anscheinend kann ich die Adressen der einzelnen Namen nicht mit dem Namen des selektierten Bereichs abgleichen.
Kann mir jemand helfen?
Danke, Peter
Sub Sel_Name_löschen()
Dim N_M As Name
Dim N_B As String
For Each N_M In ActiveWorkbook.Names
If N_M.Address = Selection.Address Then
N_B = N_M.Address
N_M.Delete
End If
Next N_M
MsgBox (N_B & " - benannter Bereich in der aktiven Datei gelöscht")
End Sub
Anzeige