Hello. Supplement: This solution is suitable for the variant with the lock file: Static Public Sub Application_Error() If Exist(Application.Path &/ ".lock.file") Then Kill Application.Path &/ ".lock.file" Wait End Hans