replace names

[Guest]

Hi all,

Excel 2002

Trying to delete unused names in a workbook as follows:

'update the range variable names
For Each w In ActiveWorkbook.Names
If w <> "" Then
w.Delete
End If
Next w

However, this faults on w.delete everytime.

Any thoughts?

Thanks,

Jason

 

[Tom Ogilvy]

The default property of a name object is the name, so it will always not
equal ""

Your whole concept is a little hard to understand. What do you mean by an
unused name?

 

[Guest]

Sorry, I am actually deleting all names in a workbook prior to reading in new
data and defining new names. Turned out my issue was the varible names being
imported rather than the code itself, as it works just fine now.

Thanks,

Jason