to find out what ASCII code number is required to identify your bullets, select one of them and then run the following code in the VBA Immediate Window

? Asc(Selection.Text)

This will return a number which can then be used in your code Chr(xxx)

Note that your code is looking for a bullet with a space either side of it. Typically, bullets are found with a tab after them and nothing before. Check that if you are still not getting hits with that replacement.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia