Function going wrong

[DaveM]

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

 

[Dick Kusleika]

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?

 

[DaveM]

I'm using Excel 2002

Works OK for me in 2003. What version are you using?