Excelのセルに設定されたURLリンクを取り出す

ExcelのセルにURLのリンクが設定されているが、URLを一覧で見ることができないので、URLを取り出したい。

Excel VBAで以下を作成して実行すると、URLリンクの設定されているセルの右隣のセルにURLを書き出してくれる。

※右隣のセルにデータが入っていても、上書きするので注意すること。

Public Sub GetURL()
    Dim link As Hyperlink
    For Each h In ActiveSheet.Hyperlinks
        h.Range.Offset(0, 1) = h.Address
    Next
End Sub