Namen löschen per VBA
12.01.2004 09:15:56
Stefan
ich versuche mit folgender Prozedur die vorhandenen Namen in einem Tabellenblatt zu löschen. Es wird jedoch nur jeder 2. Name tasächlich gelöscht und ich laufe auf einen Fehler. Der Grund liegt darin, dass mit Ausführung der 4. Zeile schon der nächste Name genommen wird, mit Beginn der Schleife der übernächste Name. Hat jemand eine Idee, wie man das Problem lösen kann?
Sub NamenLoeschen()
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count
ActiveWorkbook.Names(nms(r).Name).Delete
Next
End Sub
Besten Dank.