WorksheetFunction.Phonetic (Excel)

Extracts the phonetic (furigana) characters from a text string.

If reference is a range of cells, the furigana text string in the upper-left corner cell of the range is returned. If the reference is a range of nonadjacent cells, the #N/A error value is returned.

Phonetic (Arg1)

Arg1: Reference - a text string or a reference to a single cell or a range of cells that contain a furigana text string.

Dim strPhonetic As String
strPhonetic = WorksheetFunction.Phonetic(Arg1:=)