This is not where the error is occuring. The code works provided the workbook is not opened from another workbook. If it is the error occurs at "End sub". The rest of the code completed successfully. Including the saveas.Originally Posted by xld