Range.SetPhonetic (Excel)
Crea objetos Phonetic para todas las celdas del rango especificado.
Los nuevos objetos que se agregan mediante este método sobrescriben (eliminan) automáticamente los objetos Phonetic existentes del intervalo especificado.
ActiveSheet.Range("A1:A10").SetPhonetic