SetPhonetic Method
Creates Phonetic objects for all the cells in the specified range.
expression.SetPhonetic
expression An expression that returns a Range object.
Remarks
Any existing Phonetic objects in the specified range are automatically overwritten (deleted) by the new objects you add using this 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