Excel - Actualizar Datos

Si alguien de Ustedes supiera como puedo hacer para actualizar datos importados de access en forma automatica solo usando el tiempo del sistema, indicando que cuando se cumpla una determinada hora los datos que ya estan importados en la hoja de excel se actualizen automaticamente.

Yo le estoy indicando de la sgte. manera:

dim mihora as integer
Do
DoEvents
mihora= Format(Hour(Time), "##") & ":" & Format(Minute(Now), "##")
If Time = mihora Then
Selection.QueryTable.Refresh BackgroundQuery:=False
End If
Exit Do

claro que todo eso va dentro de un proceso, etc. pero no se actualiza cuando se cumple la condicion que le pongo, en este caso yo quiero que se actualice a cada hora.

a la espera de sus comentarios.

atte,
freddy

Sub auto_open()
todaslashoras
End Sub

Sub todaslashoras()
horas = Hour(Time) + 1 & ":00:00"
Application.OnTime TimeValue(horas), "auto_open"
End Sub