アクティブセルのふりがなテキストの文字列についての情報を表す
Phoneticオブジェクトを返す、Phoneticプロパティを使います。
　
Sub Sample()

    ActiveCell.Offset(, 1).Value = ActiveCell.Phonetic.Text
    
End Sub

　セルに名前等を入力します。そのセルを選択し、マクロを実行すると右隣のセル
にふりがなが表示されます。