Código VBA para abrir pagina da web com navegador Google Chrome

Esse código é para abrir uma pagina especifica da internet, conforme a necessidade do seu botão de controle.
Ex:www.correios.com/
No meu caso eu utilizei o codigo para rastrear objetos na internet pelo SRO
Ex:http://websro.correios.com.br/sro_bin/txect01$.startup?P_LINGUA=001&P_TIPO=001

Segue o código abaixo bom proveito não se esqueça de comentar.


Crie um módulo e cole o código abaixo.

Option Explicit
Private pWebAddress As String

Public Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Sub NewShell(cmdLine As String, lngWindowHndl As Long)
    ShellExecute lngWindowHndl, "open", cmdLine, "", "", 1
End Sub



Public Sub WebPage()
    Let pWebAddress = "Coloque aqui o seu link "
    
    Call NewShell(pWebAddress, 3)

End Sub