> Sheets(sSelTbls(lTblIdx)).Delete '上書きするテーブルのシートを削除これが主原因ですね。このサイトの[Excel のタスクを正常に終了できない現象]を再読してみてください。