Yukarıda ki Edge kodu bu Chrome kodu;

Private Sub CommandButton1_Click()
Dim str As String
str = "C:\Program Files\Google\Chrome\Application\chrome.exe -Incognito -url " & ActiveCell.Value
Shell (str)
Debug.Print (str)
End Sub