[FONT=Arial][SIZE=2][FONT=Arial]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/FONT][/SIZE][/FONT]
[FONT=Arial][SIZE=2][FONT=Arial]Cancel = True[/FONT][/SIZE][/FONT]
[FONT=Arial][SIZE=2][FONT=Arial]If Target.Address = "$L$5" Then Range("D31:D43").Find(ActiveCell.Value).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True[/FONT][/SIZE][/FONT]
[FONT=Arial][SIZE=2][FONT=Arial]End Sub[/FONT][/SIZE][/FONT]