Deleting named ranges in one go

[Jon von der Heyden]

Hi,

Is there any quick method to delete all named ranges within a workbook within one go?

Thanks,

 

[Krishnakumar]

HI,

May be..

Sub DelNames()
Dim MyName
For Each MyName In ActiveWorkbook.Names
    ActiveWorkbook.Names(MyName.Name).Delete
Next MyName
End Sub

HTH

 

[Jon von der Heyden]

Yup, it's worked perfectly. Many thanks Kris