Hi macropod:
I found the code you provided back in 2014. It's:
Find = ,([!,^13^l]@[^13^l])
Replace = ^32and\1

It worked quite well at that time. I'm now trying to incorporate the code in a macro which will find and replace multiple instances of the name string. I was able to do that in 2014.
Unfortunately, probably due to changes in VBA, I keep getting errors when trying to run this code.
Can you help?