Norman's macro works - removes all name ranges, except for Print_Are
and Print_Titles

Sub RemoveNamesAll() ' change name AllExceptPrint
Dim N As Name
For Each N In ActiveWorkbook.Names
If Not N.Name Like "*Print_*" Then
N.Delete
End If
Next N
End Sub

Course one can modify the ...Like "*Print_"... to keep other nam
ranges.


Chip - your macro still deleted all names ranges, the Print name range
included. So it does not fill ny need.

Thanks for replying

Don Bolstad K9DE

--
Message posted from http://www.ExcelForum.com