RTD Server While Running A Macro
 

I have a workbook with three sheets. Sheet1 has a number of cells with RTD
formulas. These are used in calculations in Sheet2 and Sheet3. Using a Do
Loop, I am trying to write a macro that continously loops the activesheet
between Sheet2 and Sheet3. However, the fields in Sheet2 and Sheet3, which
are driven from the RTD formulas in Sheet1, are not updating while the macro
is running. Is it possible to have a macro with an infinite loop like this
that also refreshes all RTD links in a workbook every 1-2 seconds?

Thanks!