Try with Dim i as Long


Gord Dibben MS Excel MVP

On Mon, 18 Jan 2010 09:30:01 -0800, mnsue
wrote:

I tried this but get an error message of 1004. It seems to hang up on the
ActiveWorkbood.Names. I am working in excel 2003 if that makes a difference.

"RonaldoOneNil" wrote:

The following macro will delete all range names in the active workbook

Sub Delete_Named_Ranges()
Dim i As Integer
For i = 1 To ActiveWorkbook.Names.Count
ActiveWorkbook.Names(i).Delete
Next i
End Sub

"mnsue" wrote:

I have a workbook with multiple sheets. The workbook was built by someone
else and has multiple range names that are no longer needed. How can I
delete all range names to start fresh?