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
Postado : 09/11/2012 6:02 am