Calculate on a Timer

[helga1980]

How do I go about building a macro that runs 'calculate' manually say every 1 minute or so?

Thanks!

 

[gaj104]

Have a look at the OnTime method:

ie.

Sub RunMe()

Application.OnTime Now + TimeValue("00:01:00"), "CalcMe"

End Sub

Sub CalcMe()

Application.Calculate
Call RunMe

End Sub

Hope it helps

 

[helga1980]

Thanks!! That code makes sense, but I keep getting an error saying the 'CalcMe' sub cannot be found. Do I have the code in the wrong place? I have it in the individual worksheet... Thanks

 

[gaj104]

You'll need to put this in a module instead of a worksheet. If its the actual worksheet you want to recalculate then modify the code as:

Sub RunMe()

Application.OnTime Now + TimeValue("00:01:00"), "CalcMe"

End Sub

Sub CalcMe()

ThisWorkbook.Sheets("mySheet").Calculate
Call RunMe

End Sub

 

[helga1980]

Perfecto!!! Thanks much