Range.SetPhonetic (Excel)

Cria objetos fonéticos para todas as células no intervalo especificado.

Quaisquer objetos fonéticos existentes no intervalo especificado são automaticamente substituídos (excluídos) pelos novos objetos que você adicionar usando este método.

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