Delete Named Range if no longer valid

[nigelk]

Hi all,

I have this code

  On Error Resume Next
    For Each Nm In ThisWorkbook.Names
        Nm.Delete
    Next Nm
    On Error GoTo 0

Is it possible to change it so that it only removes the names that evaluate to a Ref# error?

Thanks,Nigel

 

[philrv]

Wow neat. It lists only the range names that don't have ref errors. Tried unprotecting sheets. Still not helping. I got procedure in personal macro workbook. That shouldn't make a difference,should it? Dunno, I am at a loss here. Thanks again for your input.

 

[SydneyGeek]

That's your problem.

The reference is to ThisWorkbook.Names which will look at the workbook that contains the code (ie, Personal).
Change to Activeworkbook.Names and try again.

Denis

 

[philrv]

You were right!! I changed it to activeworkbook and ran the code. It did not delete the names, but what it did do is it enabled edit and delete buttons in namesmanager. Is that how it is supposed to work? Everybody thank you very much. Where have you people been all my life? LOL