Excel Macros

From notebook

Jump to: navigation, search

Sub DeletePhonetics() 

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

End Sub

Retrieved from "http://nihonbunka.com/wiki/index.php?title=Excel_Macros"
Personal tools