小弟想要打开一个ie，并且每3秒更新这个网页
但网页更新1次以后
excel就跳出无法执行宏timer ie
该宏可能无法在此活页簿使用，或已停用所以宏
这是怎么了?
程式码如下
Sub 网页更新()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "www.google.com"
Do While .busy Or .readystate <> 4: DoEvents: Loop
End With
timer ie
End Sub