Selection.Hyperlinks (Word)

Returns a Hyperlinks collection that represents all the hyperlinks in the specified selection.

For information about returning a single member of a collection, see Returning an object from a collection.

If Selection.Hyperlinks.Count >= 1 Then 
 Selection.Hyperlinks(1).Follow 
End If