Removing multiple hyperlinks


Posted by Greg on August 22, 2001 9:16 AM

Does anyone know if it's possible to remove hyperlinks for multiple cells in a column or row. I tried many different options and while I was able to remove the underline and different text color I was unable to remove the hyperlink itself? If you know a solution to this, please e-mail me. Thanks.

Greg



Posted by Russell Hauf on August 22, 2001 9:52 AM

Here's a very crude program that I use that will do it. You can easily modify it to do what you want.

HTH,

Russell

'************************************************
Sub GetRidOfLinks()
'
' GetRidOfLinks Macro
' 08/03/2001 - Russell Hauf
'
Dim intCol As Integer
Dim intRow As Integer
Dim intLastRow As Integer

intRow = 1
intCol = InputBox("Enter the column number with the links")

intLastRow = InputBox("What row number should we go down to?")

On Error Resume Next

For intRow = 1 To intLastRow
Cells(intRow, intCol).Select
Selection.Hyperlinks(1).Delete
Next intRow

End Sub

'************************************************