Open links in Chrome instead of default IE

[wsammy]

All but one of my internet-based programs at work only function in Chrome. I have to keep my default as IE for the one program. I need the links in excel to open in Chrome. This is what I have, but it is not working. Where have I gone wrong? This is not for a specific URL, but any URLs opened in excel.

Sub showURL(browser As String, URL As String)
Dim pPath As String
Dim bPath As String


pPath = Environ("ProgramFiles")


If browser = "IE" Then
bPath = pPath & "\Internet Explorer\iexplore.exe"
ElseIf browser = "Chrome" Then
bPath = pPath & "\Chrome\chrome.exe"
Else
Exit Sub
End If


Call Shell(bPath & " " & URL, vbNormalFocus)
End Sub
Sub Testing()
Call showURL("IE", "http://www.tips.net")
Call showURL("Chrome", "http://excel.tips.net")
End Sub


Private Sub Workbook_Open()


End Sub

 

[Scott Huish]

Change this line:

bPath = pPath & "\Chrome\chrome.exe

"

to

bPath = pPath & "\Google\Chrome\Application\chrome.exe"

 

[wsammy]

Change this line:

bPath = pPath & "\Chrome\chrome.exe

"

to

bPath = pPath & "\Google\Chrome\Application\chrome.exe"

Thank you for replying. That did not seem to fix my issue. It is still directing to IE. Here is the newest version:

Sub showURL(browser As String, URL As String)
Dim pPath As String
Dim bPath As String

pPath = Environ("ProgramFiles")

If browser = "IE" Then
bPath = pPath & "\Internet Explorer\iexplore.exe"
ElseIf browser = "Chrome" Then
bPath = pPath & "\Google\Chrome\Application\chrome.exe"
Else
Exit Sub
End If

Call Shell(bPath & " " & URL, vbNormalFocus)
End Sub

Sub Testing()
Call showURL("IE", "http://www.tips.net")
Call showURL("Chrome", "http://excel.tips.net")
End Sub

Private Sub Workbook_Open()


End Sub

 

[StringAndBranes]

All but one of my internet-based programs at work only function in Chrome. I have to keep my default as IE for the one program. I need the links in excel to open in Chrome. This is what I have, but it is not working. Where have I gone wrong? This is not for a specific URL, but any URLs opened in excel.

Sub showURL(browser As String, URL As String)
Dim pPath As String
Dim bPath As String


pPath = Environ("ProgramFiles")


If browser = "IE" Then
bPath = pPath & "\Internet Explorer\iexplore.exe"
ElseIf browser = "Chrome" Then
bPath = pPath & "\Chrome\chrome.exe"
Else
Exit Sub
End If


Call Shell(bPath & " " & URL, vbNormalFocus)
End Sub
Sub Testing()
Call showURL("IE", "http://www.tips.net")
Call showURL("Chrome", "http://excel.tips.net")
End Sub


Private Sub Workbook_Open()


End Sub

Worked for me. Thank you!