Names Delete

[ayazgreat]

Hi

can anyone please tell me how to delete all dynamic names in one time, I have recorded mentioned below a macro can it be concise ?

    ActiveWorkbook.Names("a").Delete
    ActiveWorkbook.Names("bt").Delete
    ActiveWorkbook.Names("c").Delete
    ActiveWorkbook.Names("d").Delete
    ActiveWorkbook.Names("e").Delete
    ActiveWorkbook.Names("f").Delete
    ActiveWorkbook.Names("h").Delete
    ActiveWorkbook.Names("i").Delete

Thanks in advance

 

[VoG]

Does this recent thread help? http://www.mrexcel.com/forum/showthread.php?t=325000

 

[ayazgreat]

Sir
Thanks for your reply but could you please tell me one thing that your mentioned thread's code I tried to use and if I have got 20 dynamic names range said codes give me 20 time message to click, is this a better way to click 20 times ?

 

[VoG]

Which code from that thread are you using?

 

[DonkeyOte]

Sub NAMED_RANGES()
Dim nr As Name
Application.DisplayAlerts = False
For Each nr In ActiveWorkbook.Names
    nr.delete
Next nr
Application.DisplayAlerts = True
End Sub

 

[ayazgreat]

Sir Vog
I am using mentioned below codes for it.

Sir lasw10 thank you very much your given codes work perfect.

Sub Delete_My_Named_Ranges()
   Dim n As Name
   Dim Sht As String
   On Error GoTo err_check
   ' Put in name of sheet where the range is located
   Sht = "Org Lookups"
   For Each n In ThisWorkbook.Names
      If n.RefersToRange.Worksheet.Name = Sht Then n.Delete
   Next n
   
Exit Sub
err_check:
   MsgBox "Name: " & n.Name & vbCrLf & "RefersTo: " & n.RefersTo & vbCrLf & "caused an error"
   Resume Next
End Sub