remove hyperlinks

[mangesh]

hi
i have cloumn A in that i have hyperlinks i want to delete all tha
hyperlinks is there any commna for tha

 

[Frank Kabel]

Hi
the following macro removes all hyperlinks of your selected cells (code
from David McRitchie):


Sub MakeTextOnlyFromHyperlinks()
'David McRitchie, 2000-08-23 worksheet.functions !!
Dim cell As Range
Dim URL As String
For Each cell In Selection
If IsEmpty(cell) Then GoTo chknext
URL = ""
On Error Resume Next
URL = cell.Hyperlinks(1).Address
If Err.Number = 9 Then GoTo chknext
If Trim(URL) = "" Then GoTo chknext
cell.Value = URL
cell.Hyperlinks(1).Delete
chknext: On Error GoTo 0
Next cell
End Sub

 

[JE McGimpsey]

For a variety of solutions, take a look at

http://www.mcgimpsey.com/excel/nohyperlinks.html

 

[Ron de Bruin]

Hi John

This link is not working correct

 

[Dave Peterson]

I hit the Stop button on my browser and then clicked on the link.

Then it worked ok and took me here:

http://www.mcgimpsey.com/macoffice/excel/nohyperlinks.html

 

[JE McGimpsey]

You need to use a browser that allows refresh. The direct URI is


http://www.mcgimpsey.com/macoffice/excel/nohyperlinks.html

 

[Dave Peterson]

MSIE 6.0.xxxx doesn't do this?

(I understand that I may not be up to snuff with NS 4.78 <vbg>.)

 

[JE McGimpsey]

MSIE 6.0.xxxx doesn't do this?

(I understand that I may not be up to snuff with NS 4.78 <vbg>.)

It does in Virtual PC.

 

[Ron de Bruin]

Hi Dave

Ok

But is that normal<g>

 

[Dave Peterson]

Depends on what your definition of normal is. <vbg>.

(It sounds like J.E. doesn't see it when he uses his windows emulator on his
Mac.)

 

[Dave Peterson]

If you want to leave the cell's value unchanged, then delete (or comment) this
line:

cell.Value = URL

You can comment it with a leading apostrophe:

'cell.Value = URL

 

[Father Guido]

Thanks Dave,

Guess I should have read the script instead of just copying it and running it.

Thanks again!

Norm