[VBA] 09 ファイルへのハイパーリンク

ブログの引越しをするにあたりバックアップを取ったのですが、タイトル・日時他と本文を別々にダウンロードしたので、Excelのハイパーリンクで連携させました。

ちょっとだけですが、久しぶりにVBAをいじりました。

Sub ハイパーリンク()
    Dim i As Long
    With ActiveSheet.Hyperlinks
        For i = 2 To 475
            .Add Anchor:=Cells(i, 2), Address:=Cells(i, 2).Value
        Next i
    End With
End Sub