This is exactly what I was looking for. I did have to make one slight fix though. I put the routine into my personal.xls file, so that it's always available. So then the "ThisWorkbook" that you used to write the file gave me errors. I just changed that to "ActiveWorkbook" though, and it ran perfectly. I even gave it custom buttons on my toolbar to run it. You might think about doing all that and package it as an xla add-in (I'd tell you how if I could remember).
Edit tk102: Thanks for the fix and good idea about the .xla -- now I'll have to see how that works.