Excel Macros

From notebook

(Difference between revisions)
Jump to: navigation, search
Timtak (Talk | contribs)
(Created page with "Sub DeletePhonetics() Dim rng As Range For Each rng In Selection rng.Characters.PhoneticCharacters = "" Next rng End Sub")

Latest revision as of 05:49, 8 August 2018

Sub DeletePhonetics()

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

End Sub

Personal tools