Const cAdobeReaderExe As String = "C:\Program Files (x86)\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe" ' MODIFICA SECONDO TUO PERCORSO Public Sub OpenPagePdf() Dim PDFfile As String Dim AdobeCommand As String PDFfile = "C:\Users\Utente\Desktop\Manuale.pdf" ' MODIFICA SECONDO TUO FILE MANUALE.PDF AdobeCommand = " /a ""page=" & ActiveSheet.Range("A1").Value & "=Open Actions"" " ' Modificare Shell cAdobeReaderExe & AdobeCommand & Chr(34) & PDFfile & Chr(34), vbNormal End Sub