Function GetCellHyperlink(cellAddress As String) As String
	GetCellHyperlink = Range(cellAddress).Hyperlinks(1).Address
End Function