ブックＣｌｏｓｅでＶＢＡが続かない
エクセル２００２を使用しています
ブック（Ａ）をコピーして名前（Ｂ）をつけて別ブックで保存しました
ブック（Ａ）を呼び出し後、ブック（Ｂ）を閉じてブック（Ａ）のＶＢＡを継続したいのですが
継続しません
作成したモジュールは以下です
Application.DisplayAlerts = False
'【不要なシートを削除する】
Sheets(Array("注文書入手差異表", "入手予定履歴", "main", "営C")).Select
ActiveWindow.SelectedSheets.Delete
'【ThisWorkbook.Pathの『注文書確認フォルダ』の中に、名前をつけて別ブックで保存する
' …ユーザーフォームを使用するのでマクロごと保存】
Dim myFolder As String
Dim Filename As String
myFolder = ThisWorkbook.Path & "\注文書確認フォルダ"
Filename = Format(Date, "yyyymmdd") & "注文書入手予定表"
If Dir$(myFolder, vbDirectory) = "" Then
MkDir myFolder
End If
ActiveWorkbook.SaveAs Filename:= _
myFolder & "\" & Filename
Application.DisplayAlerts = True
'【保存した別ブック名を再取得】
Dim myName0 As String
myName0 = ThisWorkbook.Name
'【コピー元のファイルを開く】
Dim myPath As String
myPath = Application.Substitute(ThisWorkbook.Path, "\注文書確認フォルダ", "")
Workbooks.Open (myPath & "\" & "注文書入手予定表")
MsgBox "【注文書確認フォルダ】の中に別ブックが作成されました"
'【保存した別ブックを閉じる】
Workbooks(myName0).Activate
Windows(myName0).Activate
ActiveWorkbook.Close
'******下のマクロが続かない*****************
'======================
Call Macro6
'======================
VBA ステップインで原因を探ろうとしたのでですが
「中断モードでは入力できません」のメッセージがでて
デバッグができません
八方ふさがりの状態です。助けていただけませんか。
補足
元のブックをアクティブにするということです。 作業のほとんどは、元ブックで行い、開いたブックはあくまでも開くだけなので・・・。