Is there a way, using VBA code, to remove a hyperlink from a cell, while
retaining the cell text content?

Thanks,

Keith

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell, while
retaining the cell text content?

Thanks,

Keith

Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell, while
retaining the cell text content?

Thanks,

Keith

Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell, while
retaining the cell text content?

Thanks,

Keith

Thanks for the help. One related question:

What properties of a Range can I set so that text within the range is not
interpreted as a URL in the first place?

Thanks again,

Keith

"Norman Jones" wrote in message
...
Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in
message ...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell,
while
retaining the cell text content?

Thanks,

Keith

Why, that should retain the text.

or just
Activesheet.Hyperlinks.delete

I believe will also do it.

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in
message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell,
while
retaining the cell text content?

Thanks,

Keith

Hi Tom,

Why, that should retain the text.

For me, the line

r.Clear

cleared the residual text and, hence, my apology.

---
Regards,
Norman



"Tom Ogilvy" wrote in message
...
Why, that should retain the text.

or just
Activesheet.Hyperlinks.delete

I believe will also do it.

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in
message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell,
while
retaining the cell text content?

Thanks,

Keith

Well than all you needed to do was say to delete that line. Everything else
was good.

--
Regards
Tom Ogilvy


"Norman Jones" wrote in message
...
Hi Tom,

Why, that should retain the text.

For me, the line

r.Clear

cleared the residual text and, hence, my apology.

---
Regards,
Norman



"Tom Ogilvy" wrote in message
...
Why, that should retain the text.

or just
Activesheet.Hyperlinks.delete

I believe will also do it.

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in
message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell,
while
retaining the cell text content?

Thanks,

Keith

Hi Tom,

Well than all you needed to do was say to delete that line. Everything
else
was good

The 'good' part was Gary's Student's code.

My sole contribution was the offending line - hence my apology!


---
Regards,
Norman



"Tom Ogilvy" wrote in message
...
Well than all you needed to do was say to delete that line. Everything
else
was good.

--
Regards
Tom Ogilvy


"Norman Jones" wrote in message
...
Hi Tom,

Why, that should retain the text.

For me, the line

r.Clear

cleared the residual text and, hence, my apology.

---
Regards,
Norman



"Tom Ogilvy" wrote in message
...
Why, that should retain the text.

or just
Activesheet.Hyperlinks.delete

I believe will also do it.

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
Hi Gary,

Please ignore my suggestion.

I missed the OP's requirement to *retain* the text!

My apologies.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Gary's Student,

Try this. On my machine the link is gone, but the text lingers on.

Try adding an additional line:

Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
r.Clear
Next
End Sub

---
Regards,
Norman



"Gary's Student" wrote in
message
...
Sub hypergone()
Dim r As Range
For Each r In Selection
r.Hyperlinks.Delete
Next
End Sub

Try this. On my machine the link is gone, but the text lingers on.
--
Gary's Student


"keithb" wrote:

Is there a way, using VBA code, to remove a hyperlink from a cell,
while
retaining the cell text content?

Thanks,

Keith