SetPhonetic Method Example
This example creates a Phonetic object for each cell in the range A1:A10 on the active worksheet.
ActiveSheet.Range("A1:A10").SetPhonetic