Sub Demo() With Selection If .Hyperlinks.Count > 0 Then With .Hyperlinks(1) MsgBox .TextToDisplay & vbCr & .Address End With Else MsgBox "No Hyperlink selected" End If End With End Sub