You probably don't even need a macro for this - you should be able to do it with a wildcard Find/Replace, where:
Find = <[! ]@ [! ]@ and Michael
Replace = ^&
and you set the replacement format to bold.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|