Try this user-defined function. You can paste it into a module in your workbook. If you don't know how to do this, let me know.
After you have pasted it into a module in your workbook, just call it like this:
=ShowAddress(A1)
Where A1 is the cell with the MR. EXCEL hyperlink in it.
<pre><font color='#000000'>
<font color='#000080'>Option</font> <font color='#000080'>Explicit</font>
<hr align=left width=500><font color='#000080'>Public</font> <font color='#000080'>Function</font> ShowAddress(rng <font color='#000080'>As</font> Range) <font color='#000080'>As</font> <font color='#000080'>String</font>
<font color='#000080'>If</font> rng.Cells.Count > 1 <font color='#000080'>Then</font>
ShowAddress = CVErr(xlErrValue)
<font color='#000080'>Else</font>
ShowAddress = rng.Hyperlinks.Item(1).Address
<font color='#000080'>End</font> <font color='#000080'>If</font>
<font color='#000080'>End</font> <font color='#000080'>Function</font>
</font></pre>
Hope this helps,
Russell