ご回答ありがとうございました。 また質問なのですが、あるファイル(TEST1.XLS)をオープンして 名前を付けて保存(TEST2.XLS)ということはできるのでしょうか? Workbook.Save Workbook.Close を改良してできれば良いのですが・・・