Experimente este verso:
Sub BulletKiller()
Cells.Replace what:=Chr(149), replacement:=""
End Sub
assume que seus marcadores são ASCII 0149. Todas as células na planilha ativa serão processadas. Todos os marcadores serão removidos, até mesmo marcadores no meio do texto ou no final do texto.