pmeghnathi
Board Regular
- Joined
- Mar 11, 2018
- Messages
- 86
- Office Version
- 2003 or older
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
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