Laafzeitfehler '424'
05.11.2012 22:56:31
mknelles
ich bekomme bei dem nachfolgenden Code immer die Fehlermeldung >Laufzeitfehler '423" Objekt erforderlich". Hat jemand eine Idee? Ich bin mit meinem LAtein am Ende.
Gruß Markus
Sub ZellnamenLöschen1()
'löscht alle Zellnamen mit ungültigem Bezug
Dim Zellnamen ' As Object
Dim r ' As Long
Set Zellnamen = ActiveWorkbook.Names
For r = Zellnamen.Count To 1 Step -1
If InStr(Zellnamen(r), "#REF") 0 Then
Zellnamen(Zellnamen(r).Name).Name.Delete
End If
Next
End Sub