Range.SetPhonetic (Excel)

Creates Phonetic objects for all the cells in the specified range.

Any existing Phonetic objects in the specified range are automatically overwritten (deleted) by the new objects that you add by using this method.

ActiveSheet.Range("A1:A10").SetPhonetic