Excelファイルが開かない ー 読み取れない内容が含まれています。このブックの内容を回復しますか?

Excelファイルを保存し、いったん閉じてから再度開くと次のエラーが表示された。
「＜ファイル名＞には読み取れない内容が含まれています。このブックの内容を回復しますか? ブックの発行元が信頼できる場合は、[はい]をクリックしてください。」

で、[はい]をクリックすると、またエラーが表示された。
「＜ファイル名＞にエラーが検出されましたが、次の修復を行うことによってファイルを開くことができました。修復を保持するにはこのファイルを保存してください。
ファイルへのダメージが深刻であり修復は不可能です。数式と値の回復を試みましたが、消失または破損したデータが含まれる可能性があります。」

シートにあったすべての数式がなくなりました。。。orz

いろいろ調べると、名前の定義の内容が一時ファイルを参照していたり、#REF!など参照先がわからない状態だった。定義自体も数多く手で削除するには手間なので、VBAで全削除。

Sub 名前定義削除()
Dim obj As Name
For Each obj In ActiveWorkbook.Names
obj .Delete
Next obj
End Sub

これでエラーは解消しました。


【確認環境】
Windows XP SP3
Office 2003 SP3