Excel VBA で 保存

質問

VBAマクロで 終了ボタンを押した時に
あるシートを削除をし TEST2 と言う名前で保存したいのですが　保存したシートを開こうとすると強制終了してしまいます。どなたか詳しい方ロジックを見ていただけませんか？よろしくお願いします。
ちなみに　Excel2000　です。

以下ロジック

Dim fs As Object
Dim w As Object

strWK_SaveBmnFile = "c:\TEST2.xls"

'' ------------------------------
'' strWK_SaveBmnFile ファイルの存在チェック
'' ------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(strWK_SaveBmnFile) Then
Kill strWK_SaveBmnFile
End If

Set fs = Nothing

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=strWK_SaveBmnFile, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Windows("TEST2.xls").Activate

Worksheets("DATA1").Select
ActiveWindow.SelectedSheets.Delete
Worksheets("DATA2").Select
ActiveWindow.SelectedSheets.Delete

ActiveWorkbook.Save

Application.Quit

回答No.1

bin-chan

このコードを実行した後、ブック[TEST2.xls]には
DATA1、DATA2以外にシートが残っているのでしょうか？