Alle Bereiche bis auf Druckbereich löschen
20.12.2002 08:01:34
Robert
ich möchte in meiner Datei gerne alle Bereiche bis auf die Druckbereiche löschen. Bei dem Makro unten werden die Druckbereiche und Wiederholungszeilen mit gelöscht. Wie kann ich dies verhindern?
Sub AlleNamenLöschen()
Dim BenannteBereiche As Object
For Each BenannteBereiche In ActiveWorkbook.Names
BenannteBereiche.Delete
Next
End Sub
Hoffe ihr könnt mir helfen.
Danke und Gruß Robert