Modify code to open in GC

Sub Dictionaries()
' Look at different dictionaries
     Dim theTerm As String ' Term to look up in dictionary
     Dim strURL As String ' The URL to open in Explorer
     'Dim obj As Object ' Explorer
     Dim arrSites(3)
   
    ' If nothing is selected
    If Selection.Type = wdSelectionIP Then
    ' Select the term where the cursor is located
    theTerm = Selection.Words(1).Text
    Else
    ' Use the current selection
    theTerm = Selection.Text
    End If
    
    theTerm = Replace(theTerm, vbCr, "")  ' Remove any soft returns in the phrase that you have highlighted
    theTerm = Replace(theTerm, vbLf, "")  ' Remove paragraph breaks in the phrase that you have highlighted
    theTerm = Trim(theTerm) ' Remove any spaces
    
    arrSites(0) = "https://cms.unov.org/UNTERM//search?urlQuery=" + theTerm
    arrSites(1) = "http://iate.europa.eu/SearchByQueryLoad.do?method=load" + theTerm
    arrSites(2) = "http://www.btb.termiumplus.gc.ca/tpv2alpha/alpha-fra.html?lang=fra&i=1&srchtxt=" + theTerm
    arrSites(3) = "https://www.linguee.com/english-spanish/search?source=auto&query=" + theTerm + "&title=21st"
    'Set objIE = CreateObject("InternetExplorer.Application")
    For i = 0 To 3 Step 1
        strURL = arrSites(i)
        If i = 0 Then
            'objIE.Navigate strURL
GoogleChromeExeLocation = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" 'Change this to be the Location of Chrome.exe in your PC
Shell (GoogleChromeExeLocation & " -url " & strURL)

        Else
            'objIE.Navigate2 strURL, 2048
            Shell (ChromeLocation & " -url " & strURL)
            
        End If
     Next i
     'objIE.Visible = True
    ' Set objIE = Nothing
End Sub

Select allOpen in new window