Sub ハイパーリンクHyperlinksを設定挿入する()
    
    アドレス = Range("A2")
    
    Range("B2").Hyperlinks.Add _
                anchor:=Range("B2"), _
                Address:=アドレス, _
                TextToDisplay:="表示名"
    
End Sub