Geturl

In the cell:

• =PERSONAL.xlsb!Geturl(B2)

where B2 references the cell with the link

VBA Code

 Function GetURL(cell As Range, Optional default_value As Variant)
 'Lists the Hyperlink Address for a Given Cell
 'If cell does not contain a hyperlink, return default_value
      If (cell.Range("A1").Hyperlinks.Count <> 1) Then
          GetURL = default_value
      Else
          GetURL = cell.Range("A1").Hyperlinks(1).Address
      End If
End Function

in module1 in PERSONAL.xlsb

What Links Here?

• List of entities ‎ (← links | edit)