質問の文言と提示のコードには矛盾点、疑問点がありますが、 要するに以下のようなことですか? 元ブック : ThisWorkbook コピー先 : まとめ.xls だと仮定して、、 ●元ブックの表示シートを"まとめ.xls"にコピーする ●コピーするときは、"まとめ.xls”に既にコピーしてあるシートの次からコピーする (要するに、まとめ.xlsのシートはコピーするたびに増えていくということです) ●コピーは書式と値のみにする ●コピーしたシート名は、元ブックのシート名と同じにする (ま、これはシートをコピーすればいいわけですが) もし、このようなことなら以下のコードでもできます。 '-------------------------------------------- Sub test() Dim MatomeBK As Workbook Dim MotoBK As Workbook D