Make sure you have Application.Screenupdating = true and try using the
DoEvents function. Or you could use OnTime to run the elements of your
simulation at the time intervals you require.
Seisman