Open a PDF file in Google Chrome

[drom]

Hi and thanks in advance!

In Our shared Drive we have many PDF files

One of them could be, Just for this eg

Dim wMyNewPDFfile as String:  wMyNewPDFfile  = "F:\MyPDF File XXxxXX.pdf"

If I want to open the PDF file I can just put (WORKS fine):

Sub mToOpenPDFFile ()
Dim wMyNewPDFfile as String:  wMyNewPDFfile  = "F:\MyPDF File XXxxXX.pdf" 
ThisWorkbook.FollowHyperlink (wMyNewPDFfile )
End Sub

But I would like to open the PDF file in Google chrome
over 80% of our employees are using Chrome

Any idea how to do so ?

 

[MCLIFTO8]

Dim strChromeFilePath As String: strChromeFilePath = "C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe"

Call Shell("""" & strChromeFilePath & """ """ & wMyNewPDFfile & """", vbNormalFocus)