need to edit macro for auto login, replaced from internet explorer to google chrome

[warriorpoet7176]

Hello Friends !!
Here I need one assistance from the experts. Below given is the code that opens the web link in INTERNET EXPLORER & simultaneously adds username and password as well in the required fields, Now I want application of INTERNET EXPLORER to be replaced by GOOGLE CHROME, I tried several methods but all in vain can anyone help me in this

Sub internetlogon()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
'Go to this Web Page!
IE.Navigate "https://www.linkedin.com/m/login/"
'Check for good connection to web page loop!
Do
If IE.ReadyState = 4 Then
IE.Visible = False
Exit Do
Else
DoEvents
End If
Loop
'Wait for window to open!
Application.Wait (Now + TimeValue("0:00:01"))
IE.Visible = True
'Send logon information
SendKeys "xxxxxusernamexxxxx", True
SendKeys "{TAB}", True
SendKeys "xxxxxpasswordxxxxx", True
End Sub


Thanks n Regards

[Syrkrasi]

Try this: From Chrome (if the username & password is already saved in Chrome) Try this

Please Login or Register  to view this content.

[warriorpoet7176]

Try this: From Chrome (if the username & password is already saved in Chrome) Try this

Please Login or Register  to view this content.

Hi.
I tried the code but its not producing the desired result rather ends up with error 91 while running could you please check what is wrong with this code

Sub internetlogon()
Dim IE As Object
Shell ("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe -url https://www.linkedin.com/uas/login?session_redirect=%2Fvoyager%2FloginRedirect%2Ehtml&fromSignIn=true&trk=uno-reg-join-sign-in")
IE.Visible = True
'Go to this Web Page!
IE.Navigate "https://www.linkedin.com/m/login"
'Check for good connection to web page loop!
Do
If IE.ReadyState = 4 Then
IE.Visible = False
Exit Do
Else
DoEvents
End If
Loop
'Wait for window to open!
Application.Wait (Now + TimeValue("0:00:01"))
IE.Visible = True
'Send logon information
SendKeys "XXXXUSERNAMEXXXX", True
SendKeys "{TAB}", True
SendKeys "XXXXPasswordXXXX", True
End Sub