numero = Application.InputBox("Por Favor entre com o numero precatorio", "", "")


Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "https://processual.trf1.jus.br/consultaProcessual/numeroProcesso.php?secao=TRF1&enviar=ok"

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

ie.Document.all("proc").innerText = numero
ie.Document.getElementById("enviar").Click

Set objElementCol = ie.Document.getElementsByTagName("a")

For Each objElement In objElementCol
    DoEvents
    If objElement.href = "https://processual.trf1.jus.br/consultaProcessual/processo.php?proc=1219012520174019198&secao=TRF1&pg=1&enviar=Pesquisar#aba-partes" Then
     DoEvents
        objElement.Click
        Exit For
    End If
    DoEvents
Next objElement