Sub RemoveSpecificSymbols()
    Dim char As Range
    For Each char In ActiveDocument.Range.Characters
          Select Case char.Text
                Case "µ", "£", "€"
                   char.Delete
          End Select
    Next char
End Sub