>>232
ちなみにセル関数の計算も遅い場合は、以下の処理を処理前と後に入れると早くなる
自動計算をいったん止めて、処理が終わったら自動計算オンにする


Application.Calculation = xlCalculationManual

なんらかの処理

Application.Calculation = xlCalculationAutomatic