エクセルで一括でフリガナを表示させる方法

A列に漢字が3000行ぐらいあります。
B列に一括でふりがな(カタカナ）を表示させたいのですが、どのようにしたらいいでしょうか？
検索してみたら同じ質問がありマクロを使ってやってみたのですが、うまくできませんでした。
マクロは全くの初心者です。どうぞよろしくお願いします。

No.2 回答者： WAR450R 回答日時： 2008/07/28 20:27

sub test1()

dim i as range
for each i in range("a1:a3000") '3000行まで
with i.phonetic
.charactertype = xlkatakana
.visible =false
end with
i.offset(,1) =i.phonetic.text
next
end sub

No.1 回答者： mu2011 回答日時： 2008/07/28 11:49

A1から漢字データが入力されているとして、B1に=PHONETIC(A1)を入力、フィルハンドル（B1セルの枠右下の■）をダブルクリックで如何でしょうか。

因みに漢字データは、エクセルで入力に限りますので、他のアプリケーションから引用していると変換されません。