link open google chrome

[pmeghnathi]

this is my vb code this code link open in internet exporer. i want link open in google chrome browser

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IE As Object
Dim link As String
ab = ActiveCell.Address
ab1 = Left(ActiveSheet.Range(ab), 4)
'MsgBox ab1
If ab1 = "http" Then
If Not Intersect(ActiveCell, Range(ab)) Is Nothing Then
link = ActiveSheet.Range(ab)
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate link
Set IE = Nothing
End If
End If
End Sub

 

[EFANYoutube]

You'll have to change your code a little because this uses the shell instead of creating an object

Shell ("C:\Users\" & Environ("USERNAME") & "\AppData\Local\Google\Chrome\Application\Chrome.exe -url " & link &"")