I think you can just use the call "Calculate"

I got it from the macro recorder and it works for me....i.e.

Sub calc2()
Calculate
End Sub


The Calculate line will force calculation