Try turning events off before doing the save:

        'Step 5: Now save a copy of the file in the current
            Application.EnableEvents = False
            ThisWorkbook.SaveAs Filename:=file_NewName, _
                                FileFormat:=52
'                                CreateBackup:=False
            Application.EnableEvents = True

Dom