Tom,

That was the problem. It is working perfectly now. Big thanks for your help.

Thanks,

Patrick

"Tom Ogilvy" wrote:

ActiveWorkbook.SaveAs ThisWorkbook.FullName, xlWorkbookNormal

should be

ActiveWorkbook.SaveAs ActiveWorkbook.FullName, xlWorkbookNormal

ThisWorkbook refers to the workbook containing the code.

--
Regards,
Tom Ogilvy