Interagir com abas do internet explorer

[Diego Gomes Ferreira]

Por favor, alguém pode me ajudar a fazer um código que consiga interagir com as abas do internet explorer?
Meu código acessa o site dos correios, preenche os dados do CEP e tenta obter o tempo previsto de entrega da correspondência. Contudo, o site abre uma segunda aba para mostrar essa previsão de entrega. Eu preencho os dados em uma aba e quando clico em "ok" e ele abre outra aba com o resultado da minha pesquisa. Quando isso ocorre, perco a conexão com o internet explorer.

 

Segue código:
 

Sub CEP()
'
Dim linha As Integer, coluna As Integer

Set ie = CreateObject("internetexplorer.application")

ie.navigate "http://www2.correios.com.br/sistemas/precosprazos/"
ie.Visible = True

Do While ie.busy And ie.readystate <> "readystate_complete"
DoEvents
Loop

ie.Document.getelementsbytagname("input")(0).Value = Cells(2, 1).Value
ie.Document.getelementsbytagname("input")(2).Value = Cells(2, 2).Value
ie.Document.getelementsbytagname("input")(3).Value = Cells(2, 3).Value
ie.Document.getelementsbyclassname("f4col")(0).Value = Cells(2, 4).Value
ie.Document.getelementsbyclassname("btn2 f2col float-right")(0).Click

Do While ie.busy And ie.readystate <> "readystate_complete"
DoEvents
Loop

ie.navigate "http://www2.correios.com.br/sistemas/precosPrazos/prazos.cfm"
ie.Visible = True

Do While ie.busy And ie.readystate <> "readystate_complete"
DoEvents
Loop

Cells(2, 5) = ie.Document.getelementsbytagname("td")(0).innertext

ie.Quit

Range("A3:D3").WrapText = False

End Sub