Excel - Borrar nombres menos las areas de impresion

Hola, pido de su ayuda en el siguente caso:
Tengo un archivo con varias hojas. cada hoja tiene celdas con nombre y areas de impresion diferentes. Mediante una macro yo quiero borrar todos los nombres del libro, pero tambien borra para cada hoja el nombre "Área_de_impresión", tengo este código:

Sub Button()
MsgBox "Continuar?", vbOKCancel
Dim n As Name
For Each n In Names
If n = Names("Área_de_impresión") Then
Else
n.Delete
End If
Next n
End Sub

pero en unos archivos solo queda el "Área_de_impresión" de la hoja activa, los demas los borra. En otros archivos simplemente me marca error y no se ejecuta nada. Agradezco mucho de antemano su apoyo.

vale, que si a alguien le interesa, aqui os pongo la forma en como lo solucioné, si hay titulos (columnas, renglones a repetir) aplicaria lo mismo. Saludos!

Sub Button2()
Dim n As Name
Dim a() As String
Dim i As Integer
MsgBox "Continuar?", vbOKCancel
ReDim a(Worksheets.Count)
For i = 1 To Worksheets.Count
a(i) = Worksheets(i).PageSetup.PrintArea
Next
For Each n In Names
n.Delete
Next n
For i = 1 To Worksheets.Count
Worksheets(i).Select
ActiveSheet.PageSetup.PrintArea = a(i)
Next