I misspoke because I did not read properly.

Dim i as Integer produces error 9........subscript out of range

Dim i as Long works fine.

Error 1004 is entirely something else.

I don't know what would produce a 1004 error

Perhaps someone can jump in so's we can learn?


Gord


On Mon, 18 Jan 2010 13:07:01 -0800, mnsue
wrote:

It did not work. I'm still getting an error message of 1004. I think it
said invalid name. Any other suggestions?

"Gord Dibben" wrote:

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?

.