Double Macro to delete names, keep print and save?

[jmarg]

Hi- I have a workbook where Name Manager won't even open because there's so many names. I have a macro to delete the names and save in batches- but I also want it to retain any "Print_Areas." Here is my current code that runs but it still deletes all Print Areas. Suggestions?

Sub DeleteDeadNames2()
Dim nName As Name
Dim lCount As Long

With ActiveWorkbook
For lCount = .Names.Count To 1 Step -1
If lCount Mod 1000 = 0 Then
Debug.Print lCount
.Save
DoEvents
End If
If Right(.Names(lCount), 11) <> "!Print_Area" And .Names(lCount) <> "Print_Area" Then
.Names(lCount).delete
End If
Next lCount
End With
End Sub

 

[Joe4]

Duplicate to: Need Macro to delete all names but keep Print_Areas

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.