Sub Delnames()
Dim Nme As Name
For Each Nme In ActiveWorkbook.names
Nme.Visible = True
Select Case Nme.Name
Case "pcode1", "Fluff"
Case Else
Nme.Delete
End Select
Next Nme
End Sub
Sub Delnames()
Dim Nme As Name
Dim i As Long
For Each Nme In ActiveWorkbook.names
i = i + 1
Nme.Visible = True
Select Case Nme.Name
Case "pcode1", "Fluff"
Case Else
Nme.Delete
End Select
If i = 1000 Then Exit For
Next Nme
MsgBox "Batch done"
End Sub