Deleting Defined Names

[Todd Bardoni]

Why is it so difficult to delete defined names. It seems as though the code below should work perfectly, but it does not. Any input?

    For i = 1 To 1000
        ActiveWorkbook.Names("ExternalData_" & i).Delete
    Next i

 

[Oorang]

How about this?

Sub KillNames()
Dim x As Name
For Each x In Names
x.Delete
Next x
End Sub