how do i view the actual email address for the hyperlink text? the workbook
i'm viewing has 4 characters for the hyperlink not the email address.

The following UDF should give you the address:

Function hyp(r As Range) As String
hyp = ""
If r.Hyperlinks.Count 0 Then
hyp = r.Hyperlinks(1).Address
Exit Function
End If
If r.HasFormula Then
rf = r.Formula
dq = Chr(34)
If InStr(rf, dq) = 0 Then
Else
hyp = Split(r.Formula, dq)(1)
End If
End If
End Function
--
Gary''s Student
gsnu200707


"max" wrote:

how do i view the actual email address for the hyperlink text? the workbook
i'm viewing has 4 characters for the hyperlink not the email address.

Thanks Gary- It took some looking on my part to figure out what a UDF is, but
I got it done, and you saved me hours of work.

"Gary''s Student" wrote:

The following UDF should give you the address:

Function hyp(r As Range) As String
hyp = ""
If r.Hyperlinks.Count 0 Then
hyp = r.Hyperlinks(1).Address
Exit Function
End If
If r.HasFormula Then
rf = r.Formula
dq = Chr(34)
If InStr(rf, dq) = 0 Then
Else
hyp = Split(r.Formula, dq)(1)
End If
End If
End Function
--
Gary''s Student
gsnu200707


"max" wrote:

how do i view the actual email address for the hyperlink text? the workbook
i'm viewing has 4 characters for the hyperlink not the email address.

You are very welcome !
--
Gary''s Student
gsnu200709


"sodea" wrote:

Thanks Gary- It took some looking on my part to figure out what a UDF is, but
I got it done, and you saved me hours of work.

"Gary''s Student" wrote:

The following UDF should give you the address:

Function hyp(r As Range) As String
hyp = ""
If r.Hyperlinks.Count 0 Then
hyp = r.Hyperlinks(1).Address
Exit Function
End If
If r.HasFormula Then
rf = r.Formula
dq = Chr(34)
If InStr(rf, dq) = 0 Then
Else
hyp = Split(r.Formula, dq)(1)
End If
End If
End Function
--
Gary''s Student
gsnu200707


"max" wrote:

how do i view the actual email address for the hyperlink text? the workbook
i'm viewing has 4 characters for the hyperlink not the email address.

Can you see the complete email address when you use Insert|hyperlink?

max wrote:

how do i view the actual email address for the hyperlink text? the workbook
i'm viewing has 4 characters for the hyperlink not the email address.

--

Dave Peterson