Excel VisualBasic Script

Sub followLink()
    Worksheets("Sheet3").Hyperlinks(1).Follow
End Sub