ハイパーリンクのフォントをA1セルのフォントと揃える

ハイパーリンクのフォントをA1セルのフォントと揃えます。

Sub ハイパーリンクのフォントをセルフォントに合わせる()

    Dim strFontName As String
    strFontName = Range("A1").Font.Name 'A1のフォント
    If vbOK = MsgBox("ハイパーリンクのフォントを" & vbLf & "A1のフォントに合わせます。" & _
                    vbLf & vbLf & _
                    "A1： " & strFontName & vbLf & _
                    "ハイパーリンク： " & ActiveWorkbook.Styles("Hyperlink").Font.Name & vbLf & _
                    "表示済みのハイパーリンク： " & ActiveWorkbook.Styles("Followed Hyperlink").Font.Name, _
            vbOKCancel + vbInformation, Title:="ハイパーリンクのフォント") Then
        'ハイパーリンクのフォント変更
        With ActiveWorkbook
            .Styles("Hyperlink").Font.Name = strFontName
            .Styles("Followed Hyperlink").Font.Name = strFontName
        End With
    End If
    
End Sub

標準スタイルのフォントを変更するのが王道だと思いますが、標準スタイルのフォントを変更せず、セル全体にフォント変更かけてる人が多いですね。
（最もスタイルの概念はきちんと調べたりした人じゃないと知らないのかもしれません。）
すでに完成してるドキュメントに対して、標準スタイルのフォントを変えると見た目の調整が必要になったりするので、リンクだけセルに合わせたフォントにするということをよくやっています。