add sub procedure in ManageList.xba

add feature : modify affect list