Tiempo de espera Vba

Buen día...soy novato en el tema de macros, pero ahí voy aprendiendo; les pido de su gran colaboración con lo siguiente:

Abrir un archivo en la WEB donde se encuentra el histórico del año 2012 del precio del dolar, buscar una fecha que le de y copiar el valor del dolar en una celda determinada (adjunto código que tengo)

FECHA3 = InputBox("Por favor ingrese la fecha en el formato AAAA-MM-DD ", "INGRESAR INFORMACIÓN")
Range("A1").Formula = FECHA3
Workbooks.Open Filename:="http://www.superfinanciera.gov.co/Cifras/informaci%C3%B3n/diarios/tcrm/historia.xls"
ActiveWindow.ActivateNext
Range("B1").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],[historia.xls]TCRM!C1:C3,3,0)"
Range("B2").Select
ActiveCell.FormulaR1C1 = ActiveCell.Text
ActiveCell.FormulaR1C1 = ActiveCell.Text
Range("C2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.ActivateNext
ActiveWindow.Close

Siguiendo el código paso a paso lo que necesito lo trae, pero al ejecutar la macro no le da tiempo de actualizar, como si necesitara un tiempo de ciclo para abrir el archivo en la web y luego realizar la búsqueda.

intenté con : Application.Wait Time + TimeSerial(0, 0, 5) y con Application.Wait Now + TimeValue("00:00:05"), pero lo que hace es detener la operación, y lo que necesito es que haga una pausa, pero que siga trabando el excel, o si hay otra manera de hacer lo que necesito...MIL GRACIAS por la luz que me puedar dar