Macro para abrir pagina de internet pelo Excel

• Inicie o editor do Visual Basic – VBA  (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
• Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
• Insira o texto VBA copiando e colando o código abaixo:

Public qvezes As Integer
Sub contaTempo()

 'altera o tempo'
Application.OnTime Now + TimeValue("00:04:00"), "teste_Tempo"
End Sub

Sub teste_Tempo()
qvezes = qvezes + 1

Dim browser As Variant
Set browser = CreateObject("InternetExplorer.Application")

 'altera o endereço'
browser.Navigate ("https://www.google.com.br/search?q=pra+crente")
browser.StatusBar = True
browser.Toolbar = True
browser.Visible = True
browser.Resizable = True
browser.AddressBar = True

 'limita ou altera os ciclos'
If qvezes < 30000 Then
Call contaTempo
Else
qvezes = 0
End If
End Sub

Public Sub Auto_Open()
    Call teste_Tempo
End Sub

• Feche o Visual Basic (VBA).
• No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
• Clique no botão macros e selecione o Nome_Da_MAcro.
• Clique em executar.