Pessoal, Consegui,
para quem precisar é esse aqui:
'<< ABRIR PARA WEB PELO BOTÃO NO FORMULARIO OU NA PLANILHA >>
Sub OpenWebPage()
On Error GoTo 1
ActiveWorkbook.FollowHyperlink "http://google.com.br", NewWindow:=True
Exit Sub
1: MsgBox Err.Description
End Sub
Abraço a Todos
*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].
Wilmar Borges Leal Junior
http://wilmarborges.com
Postado : 09/11/2012 6:02 am