Es werden alle definierten Namen innerhalb einer Excelmappe entfernt.

 

Der Code für ein allgemeines Modul

 

Public Sub Alle_Namen_entfernen()

'Code für ein allgemeines Modul

Dim objName As Name

Dim lngCounter As Long

 

For Each objName In ThisWorkbook.Names

    objName.Delete

    lngCounter = lngCounter + 1

Next

 

If lngCounter = 0 Then

MsgBox "Es wurden keine definierten Namen gefunden.", 64

  Else

MsgBox "Es wurden " & lngCounter & " Namen entfernt.", 64

End If

 

End Sub