You could do something like this:
For x = 1 To 60
Application.Wait (Now + TimeValue("00:00:01"))
Application.Calculate
Next x

which will work for as many seconds as you set... It's ugly, but i
would be functional... - Piku

--
Message posted from http://www.ExcelForum.com