Extract url / adress from hyperlink cell in Excel

1. Go to Visual Basic for Applications module by clicking Alt+F11
2. Create new Module by Insert->Module
3. Create a simple function in the newly created module
Function GetCellUrl(LinkCell as Range)
   If LnkCell.Hyperlinks.Count = 0 Then
      GetCellUrl = ""
   Else 
      GetCellUrl = LnkCell.Hyperlinks(1).Address
       End If


     End Function