(VBA)セルにハイパーリンクを自動で挿入

ハイパーリンクを自動生成する場合に利用しましたので記録しておきます。2つ以上のセルの情報を連結してハイパーリンクを生成したい場合などには参考になります。

Sub SetFolderHyperlink()
    Dim targetCell As Range
    Dim folderPath As String

    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 変更可能
    folderPath = "D:\test"

    ' ハイパーリンクを設定
    ThisWorkbook.Sheets("Sheet1").Hyperlinks.Add _
        Anchor:=targetCell, _
        Address:=folderPath, _
        TextToDisplay:="D:\test フォルダを開く"
End Sub