Når man skriver inn noe som kan tolkes som en url, så er Excel raskt på pletten og setter inn en hyperkobling. Av og til er dette mildt sagt irriterende.

Her er en liten makro som tar bort hyperlinken i alle markerte celler:

Sub removeLink()
 Selection.Hyperlinks.Delete
End Sub

En sjelden gang trenger man det motsatte, altså at man ønsker å få satt inn en hyperlink. Forutsetningen for at en makro skal kunne sette inn en hyperlink som virker, er at celleinnholdet faktisk er en gyldig url – ganske selvsagt når man tenker etter. Forutsatt at det er tilfelle, så vil følgende kodesnutt bistå:

Sub makeLink()

 Dim linkText As String
 Dim linkAddress As String

 Do Until ActiveCell.Value = ""

  linkText = ActiveCell.Value

  If Left(linkText, 4) = "http" Then
   linkAddress = linkText
  Else
   linkAddress = "http://" & linkText
  End If

  ActiveCell.Hyperlinks.Add Anchor:=Selection, _
  Address:=linkAddress, TextToDisplay:=linkText
  ActiveCell.Offset(1, 0).Select

 Loop

End Sub