【EXCELマクロ】ハイパーリンクからURLだけを抜き出す方法

EXCELのセルに貼り付けたハイパーリンクのデータからURL情報だけを抜き出す方法です。
今回はマクロを使用しています。

[説明]
A列にハイパーリンク設定済み文字列を入力してください。
B列に取り出したURLを表示します。
*マクロを実行するとやり直しができなたいためコピーなどして、バックアップ対策を完全にすること。

[マクロの設定]
1.[Alt]+[F11] で VBEditor を起動。
2.VBAProject(xxxx)に[挿入]-[標準モジュール] で標準モジュールを作成。
(xxxx の部分は開いたブックの名前)
3.標準モジュールに下記コードを入力。

Sub urlShow()
    'カウンタ変数を設定
    Dim I As Integer
    '1000行までのハイパーリンクの設定を確認
    For I = 1 To 1000
        'A列の当該セルが空白の時はループ終わり
        If Cells(I, 1).Value = "" Then
            Exit For
        End If
        'B列のハイパーリンクが設定されている同じ行をアクティプセルにする
        Cells(I, 2).Select
        'A列の当該セルにハインパーリンクが設定されている場合
        If Cells(I, 1).Hyperlinks.Count > 0 Then
            'A列の当該セルにハイパーリンクのURLをアクティプセルに代入
            Selection.Value = Cells(I, 1).Hyperlinks(1).Address
        End If
    Next I
End Sub

4.[Alt]+[F8] でマクロ実行のダイアログを表示。
5.[xxxx!urlShow](xxxx の部分はマクロを書いたブックの名前)を選択して
6.[実行] をクリック

*アクティブセルから下の行というマクロにしようとおもったのですが、今回は使いっきりのプログラムの性格が強いのであまり汎用性を持たせていません。