Deleting all Range names Except the Print_Area\Print_Titles http://www.mrexcel.com/forum/showthread.php?t=62083Sub 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
NextEnd Sub
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
NextEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货