Autoformat tekst til hyperlink ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("H10:H20"), Target) Is Nothing Then
On Error GoTo BeforeExit

side = ActiveCell
If IsEmpty(side) Then Exit Sub

Application.EnableEvents = False 'For at undgå at koden looper

    ActiveSheet.Hyperlinks.Add _
    Anchor:=Selection, Address:=side, _
    TextToDisplay:="Link til Hjemmeside"
   
Application.EnableEvents = True
End If

BeforeExit:
Application.EnableEvents = True
Exit Sub

End Sub