Try inserting the line "Calculate" without the quotes when you want the
formulas to be figured.

for example:

Sub runcalc()
ActiveCell.FormulaR1C1 = "5"
Calculate
Range("A7").Select
ActiveCell.FormulaR1C1 = "4"
Range("A8").Select
End Sub

this puts a value of 5 in the active cell calculates the worksheet then
continues with the code.

Hope it helps.


--
goober
------------------------------------------------------------------------
goober's Profile: http://www.excelforum.com/member.php...o&userid=19838
View this thread: http://www.excelforum.com/showthread...hreadid=494875