Quote Originally Posted by outthere
THANKS.

That will work with a little tweaking on my part. I have no idea how to write the code that goes into macros but I can logically work through what you created.

THANKS AGAIN!!!
You're welcome.Could you please indicate precisely how many rows you have.Open Tools/Macro/Macros.Give a name and click on Create.You'll see a new window.You have just to paste the code between Sub "The name of your macro"() and End Sub.Close the window.To execute the macro, open Tools/Macro/Macros/Select your macro and click on Execute or double-click on the name.