Se puede hacer lo siguiente?

Hola,
Tengo un libro con una consulta que actualiza una hoja con datos de
internet, los datos se copian en 2 columnas B y C ... en B tengo la fecha y
en C un link para descargar un archivo Zip. Hice una rutina para actualizar
la consulta cuando se abre el libro y que recorra las fechas y empiece a
bajar los archivos Zip. Ahora mi problema es que cada vez que trata de bajar
un zip me pregunta si lo quiero guardar y donde por lo tanto no se puede
hacer automaticamente que es mi idea, se tiene que estar esperando para
hacer click para guardar el archivo.

Mi pregunta se puede hacer halgo para que no me pregunte si lo quiero
guardar y que lo guarde en una determinada carpeta, los archivos los necesito
guardar no me sirve abrir el zip , las lineas de codigo que tengo hasta hora
apra esta parte son:

While coldate <> lastdate 'loop que recorre las fechas comparando con mi
ultima actualizacion

Selection.Hyperlinks(1).Follow NewWindow:=False,
AddHistory:=True ''para bajar el zip

Application.Wait (Now + TimeValue("1:45:00")) 'Para esperar que
baje el zip

Selection.Offset(1, 0).Select
coldate = Selection.Offset(0, -1).Value

Wend

...
Muchas gracias
Ana