there are some codes here:

How to set a flag to follow up using VBA (slipstick.com)