I'm sure an older version of Visio used to do this by default ...
There might be an easier way to do this ...
Select the source shape, open the shape's shapesheet and scroll down to the Hyperlinks section, copy the Sub-address cell.
Close the shapesheet, do Insert -> Field, select custom and paste.