Hi
One of the reasons might be the calculation is not set to automatic
It must be manual : Application.Calculation = xlCalculationManual
Instead set the calculation to automatic
with
Application.Calculation = xlCalculationAutomatic
It should give you instant results
Cheers
Shasur
http://www.vbadud.blogspot.com