Excel 2006 読み取れない内容が含まれています。このブックの内容を回復しますか？

Excelメモ

2019.06.15

このエラーは、簡単に回避できるがＥｘｃｅｌのバグっと言ってよいレベルの現象。

症状としては、
マクロを実行した後に保存すると、次回このメッセージが表示される。
実行せず保存すると表示されない。

オープン時に表示されたメッセージ
「はい」で開くと．．．

こんな感じなのだが、「パーツの並べ替え」？て心当たりがないのだが．．．
どうやらソート部分のロジックに原因があるということになるのだろう。

問題個所を抜粋すると

    Worksheets("集計表").Sort.SortFields.Add Key:=Range("A2:A100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

こんな感じでソートキーを設定しているのだが、既に設定済みの状態でAddしても問題なく実行されるが、次回開いた時にエラーが発生するようだ。

多重設定の残骸が残っているのかな？
ということなので、Addするまえに、Clearしてあげればとりあえず回避できるようです。

  Worksheets("集計表").Sort.SortFields.Clear
  Worksheets("集計表").Sort.SortFields.Add Key:=Range("A2:A100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

こんな感じですかね。