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