Function GetLinkAddress(CellInstance)
    Application.Volatile True
    With CellInstance.Hyperlinks(1)
        GetLinkAddress = IIf(.Address = "", .SubAddress, .Address)
    End With
End Function