高速化

画面更新しない

Application.ScreenUpdating = False
処理
Application.ScreenUpdating =True

計算式の再計算をしない

Application.Calculation = xlCalculationManual
処理
Application.Calculation = xlCalculationAutomatic

イベントを検知しない

Application.EnableEvents = False
処理
Application.EnableEvents = True

実行時間の計測

Dim 開始 As Double
Dim 終了 As Double
開始 = Timer
処理
終了 = Timer

Dim 実行時間 As Double
実行時間 = 終了 - 開始