Deleting all Range names Except the Print_Area\Print_Titles

[Gary_E]

Trying to develop a "simple" code which deletes all of the Range Names in a Workbook without deleting the Print_Area\Print_Titles -

For example - in a workbook - I have the following ranges
Name: Refers to:
ABC =Sheet1!$F$21:$F$22
Sheet1!Print_Area =Sheet1!$C$1:$EG$91
Sheet1!Print_Titles =Sheet1!$A:$B,Sheet1!$1:$10

Here's what I've been able to pull together so far - It's a modification of
code from the The Excel Logic Page email: AaronBlood@ hotmail.com

Sub Play()
'Delete all ranges
For Each WBname In ActiveWorkbook.Names
If Not WBname Like "*" & "!Print_Area" And _
Not WBname Like "*" & "!!Print_Titles" Then
WBname.Delete
End If
Next
End Sub

The problem is it's reading the Refers to: data - not the Name Data - so it deletes every thing - I've tried all sorts of ways (1600 VBA CD, Walkenback's 2002 Power progragming, etc...) - Just doesn't seem to want to work

 

[Ivan F Moala]

This worked for me...Xl2000/XP

Sub Play()
Dim WBname As Name
'Delete all ranges
For Each WBname In ActiveWorkbook.Names
    If Not WBname.Name Like "*!Print_Area" And _
        Not WBname.Name Like "*!Print_Titles" Then
        WBname.Delete
    End If
Next

End Sub

 

[Gary_E]

Re: Deleting all Range names Except the Print_Area\Print_Tit

Ivan :

Perfect !!!!!!!!!!!!!!!