Application.Calculation = xlAutomatic
ActiveSheet.Calculate
Resimdeki boyadıklarımı ekletin birde.
Application.Calculation = xlAutomatic
ActiveSheet.Calculate