Sub OpenTap()
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
myShell.Run Chr(34) & "C:\  ....FILL IN WITH LOCATION AND NAME OF FILE....  .pdf" & Chr(34)

End Sub