Segue o código. Porém a URL para navegar é uma sistema web instalado em intranet não ficando disponível para acesso fora da rede interna. Mas segue o código
Dim By As New By, Assert As New Assert, Verify As New Verify, Waiter As New Waiter
Dim driver As New WebDriver
Public nomenarede As Variant
Public Sub teste()
senha = Sheets("Petronect").range("B1").Value
driver.Start "firefox", "
https://www.intranet/index.html/"
driver.Window.Maximize
driver.Get "
www.intranet/index.html"
driver.FindElementById("inputUser").Click
driver.FindElementById("inputUser").Clear
driver.FindElementById("inputUser").SendKeys "usurario"
driver.FindElementById("inputSenha").Clear
driver.FindElementById("inputSenha").SendKeys senha
driver.FindElementByXPath("//button[@type='submit']").Click
driver.Wait 6000
nomenarede = driver.FindElementByClass("welcome_text").Text
comprador = Mid(nomenarede, 12)
driver.FindElementById("tabIcon1").Click
' driver.Wait 10000
''''''// Aqui eu preciso colocar a espera. Pois o botão abaixo Criar ele só fica disponível para clicar após o sistema carregar completamente, e este tempo varia bastante não sendo suficiente apenas utilizar o "driver.Wait 10000" '''''''''
driver.FindElementByXPath("//span[text()='Criar']").Text
driver.Wait 6000
driver.SwitchToNextWindow
driver.SwitchToFrame ("contentAreaFrame")
driver.SwitchToFrame ("isolatedWorkArea")
driver.FindElementById("WD3A-btn").Click
End Sub