Can anyone give me the text for a macro to do the above, or advise me how to write this macro in word