No workie
Error
Subfunction not defined
REPLACE
What the hey?!?! Which version was this in (your sig line shows 2000 & 2004)? The REPLACE is a built-in Function to the VBA that shipped with 2002, and I'd imagine it should still work with 2004. If it's the 2000 version, a special function would need to be written (which I did before I found the Replace function and, stupidly, discarded since it obviously wasn't needed.....)
As I said, "A work in progress". Thanks for trying though. Will try to play with it tonight after my wife goes to work (she got bumped to the graveyard shift, yuck).