追加の質問ですが、シートを一致させたい。

質問

昨日の質問（シートを配列に格納して比較）で解決したのですが、
欲が出てきました。前回は、NEWBOOKにあってOLDBOOKにないものを
NEWBOOKからOLDBOOKに挿入し、OLDBOOKをNEWBOOKと同じく並び換えるという流れでした。（Ken-KenSPさんありがとう御座いました。）
　今回は、更にNEWBOOKにないものをOLDBOOKから削除もしたいので、
　シート追加のコードを逆に検索させ、Deleteにしてみましたが、消えません。よって並び替え時に数が合わないため（シートが合わない）エラーになってしまいます。　

目的
OLDBOOKをNEWBOOKのシート構成と同じにするために（単に上書きではなく）
NEWBOOKにあってOLDBOOKにないシートはNEWBOOKからOLDBOOKに挿入
OLDBOOKにあってNEWBOOKにないシートはOLDBOOKから削除

設定
NEWBOOKはコピー元
OLDBOOKはコピー先
shSrcはNEWBOOK内のシート
shDstOLDBOOK内のシート

' // まず NEWBOOK.xls にあって OLDBOOK.xls にないシートを複写
　　For Each shSrc In wbSrc.Sheets
　　　　On Error Resume Next
　　　　Set shDst = wbDst.Sheets(shSrc.Name)
　　　　On Error GoTo 0
　　　　If shDst Is Nothing Then
　　　　　　shSrc.Copy After:=wbDst.Sheets(wbDst.Sheets.Count)
　　　　End If
　　　　Set shDst = Nothing　
　　Next
' // 続いてOLDBOOK.xls にあって NEWBOOK.xls にないシートを削除
For Each shDst In OLDBOOK.Sheets
On Error Resume Next
Set shSrc = NEWBOOK.Sheets(shDst.Name)
On Error GoTo 0
If shDst Is Nothing Then
shDst.Delete
End If
Set shSrc = Nothing ' <---- 追加
Next
　　' // シート並べ替え
　　For Each shDst In wbDst.Sheets
　　　　shDst.Move Before:=wbDst.Sheets(wbSrc.Sheets(shDst.Name).Index)
　　Next

上記のコードのDeleteのコードの変数の入れ方（元、先）があやしい以外はなさそうなので、試しましたが、やっぱり助けて下さい。

回答No.1

n-jun · ベストアンサー

For Each shDst In OLDBOOK.Sheets
において
If shDst Is Nothing Then
が成立するとは思えませんが。。。
だってOLDBOOKには存在しているわけですし。
shSrc　で判断するのでは？

お礼

n-junさんありがとうございました。
むむっ！てな感じです。よく見たつもりでしたが、見落としでした。なかなか自分では気づけないものですね。助かりました。