Hi Duncan,

you just need a line:

ActiveWorkbook.SaveAs Filename:="C:\otd\data\compile\International.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Saved = true


ActiveWorkbook.Close


ActiveWorkbook.Saved = true

ActiveWorkbook.Close


do not use
application.displayalerts = false
unless you know what you're doing! Saved=true will do the job for you.

arno