Comments on: VBA: Delete All Named Ranges http://www.automateexcel.com/2005/01/16/excel_vba_delete_all_named_ranges/ Hundreds of Excel Tips & Tricks Wed, 10 Mar 2010 07:03:23 +0000 http://wordpress.org/?v=2.9.1 hourly 1 By: Mark http://www.automateexcel.com/2005/01/16/excel_vba_delete_all_named_ranges/comment-page-1/#comment-77 Mark Sun, 16 Jan 2005 20:07:49 +0000 #comment-77 Thanks Rob. Less code, same solution, much better :-)<br /> <br /> Thanks Rob. Less code, same solution, much better :-)

]]> By: Rob van Gelder http://www.automateexcel.com/2005/01/16/excel_vba_delete_all_named_ranges/comment-page-1/#comment-76 Rob van Gelder Sun, 16 Jan 2005 19:37:54 +0000 #comment-76 Hi Mark,<br /> <br /> When you write For Each MyName In Names<br /> it is the same as writing For Each MyName in Application.Names<br /> <br /> Application.Names and ActiveWorkbook.Names are equivilent.<br /> <br /> So you could simply write: Names(MyName.Name).Delete<br /> or better still: MyName.Delete<br /> <br /> Sub DeleteNamedRanges()<br /> Dim MyName As Name<br /> <br /> For Each MyName In ActiveWorkbook.Names<br /> MyName.Delete<br /> Next<br /> End Sub<br /> <br /> Cheers,<br /> Rob Hi Mark,

When you write For Each MyName In Names
it is the same as writing For Each MyName in Application.Names

Application.Names and ActiveWorkbook.Names are equivilent.

So you could simply write: Names(MyName.Name).Delete
or better still: MyName.Delete

Sub DeleteNamedRanges()
Dim MyName As Name

For Each MyName In ActiveWorkbook.Names
MyName.Delete
Next
End Sub

Cheers,
Rob

]]>