slet named ranges via VBA

Er det navnene eller indholdet af områder, der skal slettes+

Sub Macro1()
'

Set tabel = ActiveWorkbook.Names
 
  'Worksheets("Sheet1").Range("A1").ListNames
  Set nms = ActiveWorkbook.Names
 
  rend = nms.Count
  For r = nms.Count To 1 Step -1
      nms(r).Delete
  Next r
  'Worksheets("Sheet1").Range("f1").ListNames
     
End Sub

findes også uden overskuds linier :o)

Sub Macro1()
  Set nms = ActiveWorkbook.Names
  For r = nms.Count To 1 Step -1
      nms(r).Delete
  Next r
End Sub

hejsa, Det er navnene. Så dit forslag virker sådan set på hele workbooken.
Men jeg kunne godt tænke mig kun at gøre det på sheet'er "codes". al'a dette:
Denne virker bare ikke...:/

Sub Macro1()
Dim nms
Dim r
  Set nms = Worksheets("codes").Names
  For r = nms.Count To 1 Step -1
      nms(r).Delete
  Next r
End Sub

nææ, det vil hvis ikke kunne virke, da names er gobale for hele filen,
men kigger lige på, hvordan man læser sheets navnet ud

alternativt skal man kunne slette named ranges der starter med "lst_". Så gør det ikke noget at den kigger i hele workbooken

Denne Kode læser adressen, men det er desværre hele adressen

nms.RefersTo

ellers

  Set nms = ActiveWorkbook.Names
    For r = nms.Count To 1 Step -1
      If Left(nms(r).Name, 4) = "lst_" Then
            nms(r).Delete
      End If
    Next r

ja :/ det er løser desværre ikke mit problem

Prøv lige om dette virker

  Set nms = ActiveWorkbook.Names
  Dim streng As String
  Dim streng2 As String
   
    For Each nm In ActiveWorkbook.Names
        streng = UCase(MidB(nm.RefersTo, 3, Len(nm.RefersTo) - 6))
        streng2 = UCase(ActiveSheet.Name)
        If streng = streng2 Then
            nm.Delete
        End If
    Next

nob

Vi prøver igen :o)
Den anden var ustabil i beregningen af længden


  For Each nm In ActiveWorkbook.Names
        navn = nm.RefersTo
        For t = 1 To Len(navn)
            If Mid(navn, t, 1) = "!" Then Exit For
        Next t
       
        If UCase(Mid(navn, 2, t - 2)) = UCase(ActiveSheet.Name) Then
            nm.Delete
        End If
    Next

cool - virker :) tak for hjælpen...
smider du et svar?

Velnekomme :o)