Here under is my code to open a specific page in PDF.
This is file stored on a server and used by some users with different pc.
It works with my pc, Windows 7 Office 2007, but not on most of office 2013 pc.
Any help?



Function FirstValidPath(ParamArray Paths() As Variant) As Variant
Dim i As Integer

FirstValidPath = Null
If UBound(Paths) - LBound(Paths) >= 0 Then
For i = LBound(Paths) To UBound(Paths)
If Not IsNull(Paths(i)) Then
If Len(Dir(Paths(i))) > 0 Then
FirstValidPath = Paths(i)
Exit For
End If
End If
Next i
End If

End Function

________________________________________________________________________
Private Sub CommandButton3_Click()
PathToUse = FirstValidPath("C:\Program Files\Acrobat\Reader.exe", _
"C:\Program Files (x86)\Acrobat\Reader.exe", _
"C:\Program Files\Acrobat\12\Reader.exe", _
"C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe", _
"C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe", _
"C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe", _
"C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe", _
"C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe", _
"C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe", _
"C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe", _
"C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe")

Dim p As Long
p = ActiveCell.Value 'page number

pat1 = """" & PathToUse & """"
pat2 = "/A ""page=""" & p
pat3 = """path\files.pdf""" 'file path on server
Shell pat1 & " " & pat2 & " " & pat3, vbNormalFocus

end sub