Ta bort felaktiga referenser

Ta bort felaktiga namn o referenser

När vi skapar och ändrar på lösningar kan en grupp av arbetsboknamn uppstå, vilka alla refererar till #Referenser!, till följd av att enstaka celler och cellområden tas bort.

I detta tips visas hur vi enkelt kan ta bort dessa.

Följande procedur itererar igenom den aktiva arbetsbokens namnsamling och tar bort de namn som refererar till borttagna celler och cellområden.

Option Explicit

Sub Clear_Broken_Name_References()

'© 2005 Alla rättigheter XL-Dennis

Dim wbBook As Workbook

Dim nRef As Name

Set wbBook = ActiveWorkbook

With wbBook

    For Each nRef In .Names

      If InStr(1, .Names(nRef.Name).RefersTo, "#REF") > 0 Then

        MsgBox "Tar bort " & nRef.Name & " (" & .Names(nRef.Name).RefersTo & ")"

        nRef.Delete

      End If

    Next nRef

End With

End Sub