ハイパーリンク先の一括変更について

EXCEL2021にてフォルダー内にBOOKとリンクDATAのpdfを格納していたのですが、pdfがあまりにも増えてきたので、フォルダー内にpdfフォルダーを作成しDATAのpdfをしまったのですが、シート内のハイパーリンクが開かなくなりました。
リンク先を一気に変更できるVBAをご教授頂けると幸いです。
よろしくおねがいいたします。

質問者からの補足コメント

• よろずやkinchan　様
  
  早々のご教授ありがとうございます
  早速実行してみたら下記のようなエラーが帰ってきました。
  
  実行時エラー　５
  プロシージャの呼び出し、または引数が不正です。
  
  ハイパーリンクのリンクアドレスにパス情報がなくファイル名のみになっているためでしょうか？
  念の為編集画面を添付いたしますので、よろしくお願いいたします。

  
    補足日時：2022/03/23 10:51

No.2 ベストアンサー 回答者： よろずやkinchan 回答日時： 2022/03/23 11:57

Option Explicit

Sub Example()
    Dim hl As Hyperlink
    For Each hl In ActiveSheet.Hyperlinks
        hl.Address = "pdf\" & hl.Address
    Next hl
End Sub

この回答へのお礼

バッチリ一括変更できました。
ありがとうございました。

お礼日時：2022/03/23 12:10

No.1 回答者： よろずやkinchan 回答日時： 2022/03/23 08:48

Sub Example()

    Dim hl As Hyperlink, addr As String, pos As Long
    For Each hl In ActiveSheet.Hyperlinks
        addr = hl.Address
        pos = InStrRev(addr, "\")
        hl.Address = Left(addr, pos) & "xxx" & Mid(addr, pos)
        hl.TextToDisplay = Left(addr, pos) & "xxx" & Mid(addr, pos)
    Next hl
End Sub