Alle Namen aus ActiveWorkbook löschen
21.09.2007 20:54:20
Bullinger
Kann mir jend helden ich packs nicht.
Sub DeleteNamesFromWorkbook()
Dim Nms As Object
Dim oLstNms As ListObjects
Set Nms = ActiveWorkbook.Names
Set oLstNms = Nms.ListObjects.Add
oLstNms.Delete
End Sub
Das funzt nicht ... Danke!