Greg,
I couldn't wait until tomorrow to try it, so I tried it early this morning. It works.
But I have a long way to go to understand subroutines. To make it work, I had to take out these three lines:

Undo 1 'Put the spaces back in the text.
lbl_Exit:
Exit Sub

My good book doesn't mention Undo but various places in the internet show it. I am sure I can get that to work later after a little more studying. For right now, it doesn't matter if the spaces are taken out of my original document.

I am an old COBOL programmer and I have already made some pretty advanced use of nested if statements in my MACROS. And I know about subroutines in COBOL, but I still have to learn how to do it in VBA.

By the way, I am pasting to another document in another application that is not Microsoft Office. I build a document, item by item, with about 29 other similar Macros. And it is really important to take the spaces out. It is a real load off of my time if I can depend on the Macro to do it before I paste it.

Thanks Greg, I am going to paste this routine in my other Macros tomorrow morning.