エクセルで名前を削除するときに印刷範囲を削除しない方法について

下記のマクロでエクセル内の名前を一括でいつも削除しています。印刷範囲を設定していると、「Print_Area」という名前が設定されており、これも削除されてしまうので、印刷範囲の設定がなくなってしまいます。
印刷範囲を消さないようにするにはどうしたらいいでしょうか？
---
Sub NameDel()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
nm.Delete
Next
End Sub

No.2 ベストアンサー 回答者： zap35 回答日時： 2008/04/13 09:53

例えばこんなマクロでも

Sub NameDel()
Dim nm As Name
　For Each nm In ActiveWorkbook.Names
　　If InStr(nm.Name, "Print_Area") = 0 Then
　　　nm.Delete
　　End If
　Next
End Sub

でも過去の質問例を見ていると、エクセルが勝手に「定義」した「名前」が存在する場合があり、その「名前」をDeleteしようとするとエラーになるそうなので
　　On Error Resume Next
を入れておく方がよいかもしれません

この回答へのお礼

ありがとうございました。うまくいきました。

お礼日時：2008/04/13 16:15

No.3 回答者： imogasi 回答日時： 2008/04/14 20:42

逆転の発想で、一旦全ての名前定義を削除・抹消し

残すべき印刷範囲の名前定義の１行を加えてはどうですか。
残すべきものがすくない場合はコードがすっきりすると思う。
コードは既回答のもので間に合う。
Sub NameDel()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
nm.Delete
Next
'--
Set rng = Range("A1:G20")
With ActiveWorkbook
.Names.Add Name:="Print_area", RefersTo:="=Sheet1!" & rng.Address
End With
End Sub
なお後半は１行にまとめられる。

No.1 回答者： okormazd 回答日時： 2008/04/13 00:09

たとえば、印刷範囲設定がSheet1なら下記。

Sub NameDel()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If nm.Name <> "Sheet1!Print_Area" Then
nm.Delete
End If
Next
End Sub

この回答へのお礼

ありがとうございます。シート名の自動取得方法がわからなくて、行き詰ってしまっています。

お礼日時：2008/04/13 16:16