VBA后无法自动更新数据的问题

有如下一段代码：
Sub aaa()
a = 1
time1 = Int(Now * 24 * 3600)
For i = 1 To 2
time2 = Int(Now * 24 * 3600)
If time2 - time1 >= 2 Then
Cells(a, 2) = Cells(1, 1)
a = a + 1
time1 = time2
Else

End If
DoEvents
If Cells(1, 3) = 1 Then Exit For
i = i - 1
Next
End Sub
在原来A1单元格是可以自动更新的，也就是Cells(1, 1)是可以自动更新数字变动的，但是运行如上代码记录A1单元格的变动后，A1单元格不能自动更新了，也就是说数字不会变动了，是不是自动重算出了问题，想问下这个问题怎么解决，急！

DoEvents放在End sub之前试试，可以不用。

另外，可在程序开始与结束时，设置自动计算选项。
Application.Calculation = xlCalculationManual
................
autoApplication.Calculation = xlCalculationAutomatic

excel界面操作：数据——导入外部数据——新建web查询：在出现的界面地址栏输入网址，然后选择需要更新的数据范围——导入——选择数据放的单元格（必要时修改属性，如刷新频率等）——确定。这样当网页数据变化时，excel表格的数据就会同样改变。 如果非要用vba，用录制宏稍作修改即可。