Actually, that part of your code worked for me, although it shows a "?" and
not the bullet symbol. Perhaps something else in the recorded macro needs
fixing?

This will stick a bullet in your cell:

ActiveCell.FormulaR1C1 = "€¢"

Eric