【Excelマクロ】パーツ内の並べ替え（エラー）

Excelファイルを開くと、上記のエラーが出た。
「はい」をクリックすると、さらに以下のログが。

削除されたレコード：[XXX] パーツ内の並べ替え

原因

このファイルにはマクロが組み込まれていた。

パーツ内の並べ替えという事なので、ソート関係かと思って調べると、以下のソースに問題があった。

'ソート
ThisWorkbook.Sheets("シート名").Sort.SortFields.Add Key:=Range("A1"), Order:=xlAscending
ThisWorkbook.Sheets("シート名").Sort.SetRange Range("A1:D100")
ThisWorkbook.Sheets("シート名").Sort.Apply

上記ソースで、A列昇順でソートをしていたが、最後に以下のコードが抜けていた。

ThisWorkbook.Sheets("シート名").Sort.SortFields.Clear

ソート後、SortFields.Clearしないと上記のエラーが発生する場合がある。

おそらく、ソート用のテンポラリシートの参照だけが残っていて起こるエラーだったと思われる。