Launch Chrome Browser and Return Focus to Excel

Trying to open a chrome browser from excel and then return focus to Excel. I just can't get excel to top window after chrome gains focus.



Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long

Sub test1()
    Dim XL_hdl As Long
    XL_hdl = GetActiveWindow 'Get Excel Handle
    Sleep 2000
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url http:amazon.com")
    Sleep 2000
    Chrome_hdl = GetActiveWindow 'Get Chrome Handle
    
    'Should Return Focus to Excel and Make it Topmost Window
    x = ShowWindow(XL_hdl, 5)
    End Sub

Thanks in advance for any help!