EXCELであるセルに記載されてPDFをクリックして開きたいという場合があると思います。
そのシートのモジュールに以下のコードを書き込みまして。

Acrobat Reader DCで読めなかった場合（エラーが発生した場合）、Reader 11.0で読み直す

尚、以下のコードで「＞」を全角にしています。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim buf As String
On Error GoTo myError
If InStr(Target.Value, “pdf”) ＞ 0 Then
call Shell(“C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe ” & “\\サーバ名\保管されているフォルダ名\” & Target.Value, vbNormalFocus)

Cancel = True ‘編集モードキャンセル
End If

Exit Sub

myError:
MsgBox “ファイルを開けません”, vbExclamation
call Shell(“C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe ” & “\\サーバ名\保管されているフォルダ名\” & Target.Value, vbNormalFocus)
Cancel = True ‘編集モードキャンセル
End Sub
*/