Try this

[VBA]
'Sheet module
Private Sub Worksheet_Change(ByVal target As Range)
DoFollow target
End Sub

'Standard module
Sub DoFollow(target As Range)
ActiveWorkbook.FollowHyperlink Range("Data").Find(target.Value).Hyperlinks.Item(1).Address
End Sub

[/VBA]