hyperlinks, fjerne alle på en gang

Du kan gøre det ved hjælp af en lille makro, som du skal indsætte i dit regneark (tryk Alt-F11, vælge menuen Indsæt/Modul)

Sub FjernAlleHyperlinks()

ActiveSheet.Hyperlinks.Delete

End Sub

Herefter skal du blot køre makroen (tryk Alt-F8 og vælg FjernAlleHyperlinks og tryk på Afspil)

Du kan fjerne link og tekst med denne makro:

Sub Test
Dim hl As Hyperlink
  For Each hl In ActiveSheet.Hyperlinks
    hl.Range = ""
  Next hl
End Sub

Tak til sjap, men blir teksten stående?

Hov. Sjap skal vist lægge et svar, jeg troede bare jeg skulle klikke accepter.

Jeg har lagt et svar. Du skal blot markere mit navn inden du trykker accepter.

Ja, teksten bliver stående. Det er kun selve linket, der bliver fjernet med mit forslag. Hvis du gerne vil fjerne teksten også, så skal du bruge brynils forslag. Sig lige til, hvis det var det du var ude efter, for så må jeg jo aflevere pointene til brynil ;0)

Sjap: hvordan gør jeg i word?

I Word kan det gøres meget nemt:

Tryk Ctrl A og derefter Ctrl 6

Så bliver linkene slettet - men teksten bliver stående!

Hvis teksten skal væk kan du bruge denne udgave af brynils forslag:

Sub FjernAlleHyperlinks()
For Each hl In ActiveDocument.Hyperlinks
    hl.Range = ""
Next hl
End Sub