VBA Excel - Navegación internet explorer‏

Tengo un problema que no consigo resolver, por si pudieras ayudarme.
Necesito un dato que está en una página web, el problema es que para acceder a esa página, necesariamente tengo que entrar por otra.
Te resumo, entro en una página, (web1), relleno unos datos y pulso el botón (buscar), y se abre una nueva pestaña con la información que necesito.
Accedo sin problemas a los datos de la primera web, pero de la nueva pestaña, donde están los datos, no lo consigo.
   Dim ie As Object    ' InternetExplorer
    Dim doc As Object   ' HTMLDocument
Set ie = CreateObject("internetexplorer.application")
With ie
        ie.Visible = True
        .Navigate2 = "dirección web"
        Do While .ReadyState <> 4 'READYSTATE_COMPLETE
            DoEvents
        Loop
        Set doc = .Document
      With doc
            .getElementById("select1").Value = "REC_FOLLETO"
            .getElementById("btn_buscar").Click
        End With
        Do While ie.Busy
              '  DoEvents
        Loop
end with