Excel Macros

From notebook

Sub DeletePhonetics()

 Dim rng As Range
 
 For Each rng In Selection
   rng.Characters.PhoneticCharacters = ""
 Next rng

End Sub