Hi

Something wrong, it used to work.

Column E has lots of hyperlinks, Colum A, A1 =HyperlinkAddress(E1)

I double click black square to fill down, then highligh column A, and copy.

Then paste special the values into column B.

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



Thanks in advance

Dave

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

I'm using Excel 2002


"Dick Kusleika" wrote in message
...
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