MS Excelで他所からコピペしてきたセルに一括でルビを振る方法

下記の手順はExcel2010で確認しています。

1. Excel2007以降でVBA（Microsoft Visual Basic for Application）を開けるようにします。
   リボンから「ファイル」→「オプション」を選びます。
   左側の欄から「リボンのユーザー設定」選び、右側にある「リボンのユーザー設定」の一欄から「開発」のチェックを入れる。
2. Excelに戻ってリボンの「開発」→「Visual Basic」でVBAを起動する。
3. メニューの「挿入」→「標準モジュール」を選ぶ。
   白い部分1行目に
   Sub ふりがな自動設定()
   と入れてエンターキーを押す。すると自動的にその下の2行目に
   End Sub
   と入力される。その間の行（Sub ふりがな自動設定()～End Sub）に
   Selection.SetPhonetic
   Selection.Phonetics.Visible = True
   と入力する。
4. VBAを閉じてExcelに戻る。
5. ルビを一括で振りたいセルを選択し、リボンの「開発」→「マクロ」を選ぶ。
   マクロ名の一覧に「ふりがな自動設定」があるのでそれを選んで「実行」を選択。
   これでルビが自動で振られます。
6. ルビを表示させるにはリボンの「ホーム」→「フォント」の所にある「ふりがなの表示/非表示」ボタンから行います。