hyperlink

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

canders1 - 17 Jun 2005 21:30 GMT

It seems I have email addresses in my spreadsheet that have lost their
ability to hyperlink. How do I get back?

Signature

Christine L. Anderson

Reply to this Message

Bill Manville - 17 Jun 2005 23:31 GMT

Canders1 wrote:

> It seems I have email addresses in my spreadsheet that have lost their
> ability to hyperlink. How do I get back?

You could try selecting the cells concerned and running this macro:

Sub Test()
Dim C As Range
For Each C In Selection.Cells
If C.Hyperlinks.Count = 0 And InStr(C.Value, "@") > 0 Then
C.Hyperlinks.Add C, "mailto:" & C.Value, TextToDisplay:=C.Value
End If
Next
End Sub

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup

Reply to this Message