Hyperlink i Lopslag

Det kan kun lade sig gøre med VBA, for eksempel med denne makro, hvor det der søges efter skrives i A9, resultatet kommer i A10 og lookuptabellen er i G1:H20

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A9")) Is Nothing Then
x = WorksheetFunction.Match(Range("A9"), Range("G1:G20"), 0)
Range("H" & x).Copy Destination:=Range("A10")
End If
End Sub