Hello friends,
I have macro which opens IE but unable to search for the keyword of the cell C3, i need modification that, instead of IE, it need to open chrome browser
when combo keys eg:. CTRL+SHIFT+E --
macro should go that particular cell say C3 and would pickup that keyword search directly in chrome to show the possible result
Appreciate your help in this regard,
Thanks,
Code:
Sub Macro1()
'
' Macro1 Macro
' chrome google search
'
'Keyboard Shortcut: Ctrl Shift + E
Dim s As String
Dim IE As Object
Range("C3").Select
ActiveCell.FormulaR1C1 = " "
Range("C3").Select
s = Selection.Copy
's = InputBox("Enter ur search key", "Key")
Set IE = CreateObject("InternetExplorer.application")
IE.Navigate "https://www.google.co.in/search?q=" & s
IE.Visible = True
While IE.busy
DoEvents
Wend
Set IE = Nothing
End Sub