【VBA】ハイパーリンクをバックグラウンドで別ブックとして保存する方法

Option Explicit
Sub SaveHyperlinksToAnotherWorkbook()
    Dim wb As Workbook, wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, i As Long
    Dim targetWb As Workbook
    
    ' バックグラウンド処理
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set wb = ThisWorkbook
    Set wsSource = wb.Sheets("Sheet1")
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 新しいワークブックを作成
    Set targetWb = Workbooks.Add
    Set wsTarget = targetWb.Sheets(1)
    
    ' データのコピー
    For i = 1 To lastRow
        If wsSource.Hyperlinks(i).Address <> "" Then
            wsTarget.Cells(i, 1) = wsSource.Hyperlinks(i).Address
            wsTarget.Cells(i, 2) = wsSource.Hyperlinks(i).TextToDisplay
        End If
    Next i
    
    ' 新しいワークブックを保存
    targetWb.SaveAs "C:\path\to\your\file.xlsx"
    
    ' バックグラウンド処理終了
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub