More sophisticated, maybe, but:
1. It lack the code to call it - it can't run on its own; and
2. Your loop with its repeated selections (myRange.Select) is very inefficient - you should be able to do the lot without selecting anything (except for whatever is selected when the calling macro is run). There are plenty of examples of such code on this forum.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]