On Sun, 27 Jul 2008 19:49:04 +0100, "DaveM" wrote:
Problem is they all have the hyperlink from E1, yet the Functions in column
A corresponds to E1, E2, E3, etc
Function HyperlinkAddress(cell)
On Error Resume Next
HyperlinkAddress = cell.Hyperlinks(1).Address
If HyperlinkAddress = 0 Then HyperlinkAddress = ""
End Function
Works OK for me in 2003. What version are you using?
--
Dick Kusleika
Microsoft MVP-Excel
http://www.dailydoseofexcel.com