Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
RunPDFWithExe (Target.Text)
End Sub
Function RunPDFWithExe(ByVal Myfile As String)
On Error Resume Next
Dim MyPath As String
MyPath = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
Shell MyPath & " " & Myfile, vbNormalFocus
End Function