The first step is to turn off auto calculations.
Application.Calculation = xlCalculationManual
This code only calculates a certain Range
This code only calculates a certain Worksheet Tab
You may want to do this with large workbooks or slow computers to greatly increase speed.