Talán így?

Sub TrasnferHyperlink(Honnan As Range, Hová As Range, TextOnly As Boolean)
    Dim HL As Hyperlink
    Set HL = Honnan.Hyperlinks(1)
    If TextOnly = True Then
        Hová.Value = HL.Address
    Else
        Hová.Hyperlinks.Add anchor:=Hová, Address:=HL.Address
    End If
End Sub