Name Object and the Names Collection Example

Sub DeleteInvalidNames()

Dim oName As Name

'Loop through all the names in the active workbook

For Each oName In ActiveWorkbook.Names

'Is it an invalid name?

If InStr(1, oName.RefersTo, "#REF") > 0 Then

'Yes, so log it

Debug.Print "Deleted name " & oName.Name & " -

" & oName.RefersToLocal

'and delete it from the collection


End If


End Sub

Was this article helpful?

0 0

Post a comment