Ich im Forum eine Anweisung für das Löschen von Namen außer Druckbereich gefunden.
Ich benötige auch noch den Drucktitel.
Hier ist mein Versuch der Erweiterung (Funkt irgendwie nicht richtig).
Sub namen_weg()
Dim BenannteBereiche As Object
For Each BenannteBereiche In ActiveWorkbook.Names
If BenannteBereiche.Name <> ActiveSheet.Name & "!Print_Area" Or BenannteBereiche.Name <> ActiveSheet.Name & "!Print_title" Then
BenannteBereiche.Delete
End If
Next
End Sub
lg Nobert