ファイルサーバ変更のため、Excel文書のリンクの一括修正が必要となったので
以下のマクロを実行。
Sub ハイパーリンクの修正()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "192.168.0.3", "hoge0002")
h.Address = Replace(h.Address, "hoge0003", "hoge0002")
MsgBox h.Range.Address(0, 0) & " = " & h.Address
Next h
End Sub
