Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$4" Then
Cancel = True
rep = ActiveWorkbook.Path ' a adapter
chm = rep & "\" & Target & ".xls"
If Dir(chm) <> "" Then Workbooks.Open chm
End If
End Sub