Den Namen eines benannten Bereichs läßt sich im Dialogfeld Einfügen-Name-definieren auch einfach wieder löschen. Das Löschen mehrerer oder gar aller Namen einer Arbeitsmappe ist dagegen sehr aufwändig - jeder Eintrag im vorgenannten Dialogfeld muss einzeln markiert und gelöscht werden.

Mit dem folgenden Makro lässt sich das Löschen aller Namen einer Arbeitsmappe automatisieren:

Sub AlleNamenLoeschen()
  Dim varName As Name
  Dim intFrage As Integer

  intFrage = MsgBox("Sollen alle Namen gelöscht werden?", _
  vbYesNo, "Ährlich?")

  If intFrage = vbNo Then Exit Sub

  For Each varName In ActiveWorkbook.Names
    varName.Delete
  Next varName
End Sub 


Nach Start des Makros erscheint eine Sicherheitsabfrage, die einfach mit Ja beantwortet wird. Alle Namen der aktuellen Arbeitsmappe werden dann automatisch gelöscht.
Bitte beachten: Dieser Vorgang kann nicht rückgängig gemacht werden!