あるレンジを別ブックにペーストしようとしたときのどん詰まり備忘録です。
OK例
db.Activate
Set copytarget = Range("A1:D32")
copytarget.Copy
newdb.Activate
Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
Set deletetarget = Range("B2:D32")
deletetarget.Delete
NG例
Set copytarget = Range("A1:D32")
Set deletetarget = Range("B2:D32")
db.Activate
copytarget.Copy
newdb.Activate
Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
deletetarget.Delete
どうやら、いちいちアクティブ化しないといけないっぽいです。面倒ですねぇ。