Code Open Google Chrome Browser Visible = True

[Excelpromax123]

Hello everyone GPE! I'm using the following to open Zalo PC to show the window. Currently, I want to change Zalo to Google Chrome.
IE.ShellExecute "chrome:" ' mO chomre but the code does not run. My intention is similar to the code Application.Visible = True to re-display the Excel Interface, but I want to re-display the Google Chomre interface. Please help, thank you very much!

Sub Openchomre()
    On Error Resume Next
    Dim IE As Object

    Set IE = CreateObject("Shell.Application")
    IE.ShellExecute "zalo:" ' Open Google Chrome
    Set IE = Nothing
                
End Sub

 

[DJFANDANGO]

Hi,

See if this works for you...

Sub OpenChrome()
Dim chromePath As String
Dim url As String

' Path to Google Chrome executable
chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

' URL or website you want to open
url = "Google"

' Use Shell function to open Chrome with the URL
Shell chromePath & " -url " & url, vbNormalFocus
End Sub

 

[Excelpromax123]

Hi,

See if this works for you...

Sub OpenChrome()
Dim chromePath As String
Dim url As String

' Path to Google Chrome executable
chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

' URL or website you want to open
url = "Google"

' Use Shell function to open Chrome with the URL
Shell chromePath & " -url " & url, vbNormalFocus
End Sub

Thank you. Your code opens a new tab. I just want to reopen google chome to turn it back on, not open a new tab

 

[DJFANDANGO]

Hi,

try this...

Sub OpenChrome()
Dim chromePath As String
Dim chromeTitle As String
Dim chromePID As Long

' Path to Google Chrome executable
chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

' Title of the Chrome window to look for
chromeTitle = "Google Chrome"

' Try to activate Chrome window if it's already running
On Error Resume Next
AppActivate chromeTitle
chromePID = Err.Number
On Error GoTo 0

' If Chrome is not running, open it
If chromePID <> 0 Then
Shell chromePath, vbNormalFocus
End If
End Sub