Sie müssen die NR.RefersTo
Variante nur an eine String-Typ-Variable übergeben, damit Sie die Like
Funktion verwenden können.
Dieser Code funktioniert für mich. Offensichtlich bearbeiten $E$28
.
Option Explicit Sub deleteNamedRangesSpecific() Dim NR As Name Dim compare_string As String For Each NR In ActiveWorkbook.Names compare_string = NR.RefersTo If compare_string Like "*" & "$E$28" & "*" Then NR.Delete Next End Sub