備忘録:EXCEL VBA:VBAでPDFを開く

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
*/